perl | Operador qw

El operador qw en Perl se usa para extraer cada elemento de la string dada tal como está en una array de elementos entre comillas simples ( ‘ ‘ ).
Esta función significa palabra de comillas porque considera cada palabra de la string dada tal como se cita como qw(Geeks for Geeks) es equivalente a (‘Geeks’, ‘for’, ‘Geeks’).
Este qw() usa paréntesis, por lo que parece que es una función, pero no lo es. Utiliza diferentes tipos de delimitadores que se muestran a continuación:

@String = qw/Ram is a boy/;
@String = qw{Geeks for Geeks};
@String = qw[Geeks for Geeks];
@String = qw'Geeks for Geeks';
@String = qw"Geeks for Geeks";
@String = qw!Geeks for Geeks!;
@String = qw@Geeks for Geeks@;

Sintaxis: qw(String)

Parámetros:
String : Es la string de entrada de la que se extrae cada elemento.

Devuelve: cada elemento de la string dada, ya que es una array de elementos entre comillas simples (”).

Ejemplo 1:

#!/usr/bin/perl
  
# Initialising a String as the parameter of qw
# operator whose each element is extracted.
@String = qw(GfG is a computer science portal);
foreach $key (@String) {
   print"Element is: $key\n";
}

Producción:

Element is: GfG
Element is: is
Element is: a
Element is: computer
Element is: science
Element is: portal

Ejemplo 2:

#!/usr/bin/perl
  
# Initialising a String as the parameter of qw
# operator whose each element is extracted.
@String = qw(Delhi Mumbai Kolkata Patna);
foreach $key (@String) {
   print"City name is: $key\n";
}

Producción :

City name is: Delhi
City name is: Mumbai
City name is: Kolkata
City name is: Patna

Nota: El operador qw lee un espacio en blanco y extrae elementos antes y después del espacio en blanco.