Mega Code Archive

 

Categories / Perl / Array

 

Reverse a sub-range of an array

@array = (1, 2, 3, 4, 5, 6); @array[2 .. 4] = reverse @array[2 .. 4]; print join (", ", @array);