Array Perl

  1. Home
  2. Perl
  3. Array
  4. Reverse a sub-range of an array
@array = (1, 2, 3, 4, 5, 6);
@array[2 .. 4] = reverse @array[2 .. 4];
print join (", ", @array);