perl | Invertir una array

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

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *