perl | Funciones de lista

Una lista en Perl es una colección de valores escalares. Podemos acceder a los elementos de una lista usando índices. El índice comienza con 0 (el índice 0 se refiere al primer elemento de la lista). Usamos operadores de paréntesis y coma para construir una lista. En Perl, las variables escalares comienzan con un símbolo $mientras que las variables de lista comienzan con el símbolo @.
List proporciona varias funciones predefinidas para realizar operaciones con facilidad. Algunas de estas funciones son las siguientes:

• Función join() La función
  join() se usa para combinar los elementos de una Lista en una sola string con el uso de un separador provisto para separar cada elemento. Esta función devuelve la string unida. Un separador solo puede funcionar entre los pares. No se puede colocar un separador en ninguno de los extremos de la string. Para unir las strings sin un separador, se pasa un parámetro vacío a la función.
  

  Sintaxis: join(Separador, Lista)

  Parámetro:

  • Separador: proporcionado para separar cada elemento mientras se une
  • Lista: para convertir a una sola string

  Devuelve: una string unida

  Ejemplo :

  #!/usr/bin/perl    # Initializing list with alphabets A to Z @list = (A..Z);    # Printing the original list print "List: @list\n";    # Using join function introducing # hyphen between each alphabets print "\nString after join operation:\n"; print join("-", @list);

  Producción:

  List: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
  
  String after join operation:
  A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z
  

• función inversa() La función
  inversa() en Perl devuelve los elementos de Lista en orden inverso en un contexto de lista. Mientras está en un contexto escalar, devuelve una string concatenada de los valores de List, con todos los caracteres en orden opuesto. Devuelve String en contexto escalar y List en contexto de lista.
  

  Sintaxis: lista inversa

  Parámetro:
  Lista: lista a invertir

  Devoluciones: elementos en orden inverso

  Ejemplo:

  # Initializing a list @list = ("Raj", "E123", 12000);    # Reversing the list @rname = reverse(@list);    # Printing the reversed list print "Reversed list is @rname";    # Initializing a scalar $string = "GeeksforGeeks";    # Reversing a scalar $r = reverse($string); print "\nReversed string is $r";

  Producción:

  Reversed list is 12000 E123 Raj
  Reversed string is skeeGrofskeeG
  

• Función map() La función
  map() en Perl evalúa el operador proporcionado como parámetro para cada elemento de List. Para cada iteración, $_ contiene el valor del elemento actual, que también se puede asignar para permitir que se actualice el valor del elemento. La función map() ejecuta una expresión en cada elemento de una array y devuelve una nueva array con los resultados actualizados. Devuelve el número total de elementos generados en contexto escalar y lista de valores en contexto de lista.
  

  Sintaxis: map(operación, Lista)
  Parámetro:

  • operación: a realizar en los elementos de la lista
  • Lista: cuyos elementos necesitan ser cambiados

  Ejemplo :

  # Initializing a list @Dept = ('comp', 'inft', 'extc', 'mech');    # Converting first character capital @upd1 = map(ucfirst, @Dept);    # Printing list print "List with First char capital: "; foreach $i (@upd1)  {    print "$i, "; }    # Converting all characters capital @upd2 = map(uc, @Dept);    # Printing list print "\nList with all char capital: "; foreach $i (@upd2)  {    print "$i, "; }

  Producción:

  List with First char capital: Comp, Inft, Extc, Mech, 
  List with all char capital: COMP, INFT, EXTC, MECH, 

• función sort() La función
  sort() en Perl se utiliza para organizar la Lista de acuerdo con la condición de clasificación especificada para la función. Si no se especifica ninguna condición, se ordena según la secuencia alfabética normal.
  Si se especifica una condición, la función ordena la lista según la condición.
  

  Sintaxis: sort(condición, Lista)

  Ejemplo

  # Initializing two lists @country = ('India', 'Qatar', 'Bangladesh', 'France', 'Italy'); @capital = ('Delhi', 'Lahore', 'Dhaka', 'Paris', 'Rome');    # Printing countries in sorted order print"Countries in sorted order: \n"; print sort @country; print "\n";    # Printing sorted country and capital values print "\nCombining both the lists in sorted order:\n"; print sort @country, @capital; print "\n";    # Initializing a list with number @list = (19, 4, 54, 33, 99, 2);    # Sorting in descending order @s = sort{$b <=> $a} @list; print "\nPrinting numbers in sorted order:\n"; foreach $i(@s) {     print "$i, "; }

  Producción:

  Countries in sorted order: 
  BangladeshFranceIndiaItalyQatar
  
  Combining both the lists in sorted order:
  BangladeshDelhiDhakaFranceIndiaItalyLahoreParisQatarRome
  
  Printing numbers in sorted order:
  99, 54, 33, 19, 4, 2,