La función reverse() en Perl cuando se usa en un contexto de lista, cambia el orden de los elementos en la Lista y devuelve la Lista en orden inverso. Mientras está en un contexto escalar, devuelve una string concatenada de los valores de la Lista, con cada carácter de la string en el orden opuesto.
Sintaxis: lista inversa
Devuelve:
string en contexto escalar y lista en contexto de lista.
Ejemplo 1: en contexto de lista:
#!/usr/bin/perl -w # Defining list of +ve Integers to the array @array1 = (20, 30, 40, 50, 60, 70); print reverse(@array1), "\n"; # Defining list of Integers to the array @array2 = (1, -2, 3, 4, -5, 6); print reverse(@array2), "\n";
Producción:
706050403020 6-543-21
Ejemplo 2: en contexto escalar:
#!/usr/bin/perl -w # Defining string to be reversed $string = "Hello World"; print scalar reverse("$string"), "\n"; $string = "Geeks For Geeks"; print scalar reverse("$string"), "\n";
Producción:
dlroW olleH skeeG roF skeeG