Invierta una array o string en Perl.
Forma iterativa:
iterar sobre la array desde 0 hasta la mitad de la array.
Intercambie el elemento arr[i] con el elemento arr[size-i].
#Perl code to reverse an array iteratively #declaring an array of integers @arr = (2, 3, 4, 5, 6, 7); # Store length on array in $n variable $n = $#arr; #Print the original array print "The original array is : "; for $i (0 .. $#arr) { print $arr[$i], " "; } #run a loop from 0 to mid of array for my $i (0 .. $#arr/2) { #swap the current element with size-current element $tmp = $arr[$i]; $arr[$i] = $arr[$n-$i]; $arr[$n-$i] = $tmp; } #Print the reversed array print "\nThe reversed array is : "; for $i (0 .. $#arr) { print $arr[$i], " "; }
Producción:
The original array is : 2 3 4 5 6 7 The reversed array is : 7 6 5 4 3 2
Uso de la función incorporada:
Perl tiene una función incorporada para invertir una array, una string o un número.
#Perl code to reverse an array using inbuilt function reverse #declaring an array of integers @arr = (2, 3, 4, 5, 6, 7); #Print the original array print "The original array is : "; for $i (0 .. $#arr) { print $arr[$i], " "; } #store the reversed array in @rev_arr @rev_arr = reverse(@arr); #Print the reversed array print "\nThe reversed array is : "; for $i (0 .. $#rev_arr) { print $rev_arr[$i], " "; }
Producción:
The original array is : 2 3 4 5 6 7 The reversed array is : 7 6 5 4 3 2
Publicación traducida automáticamente
Artículo escrito por Gautam Karakoti y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA