Mega Code Archive

 

Categories / Perl / Array

 

Array Slices

# Array slices @names=('A', 'B', 'C', 'D' ); @pal=@names[1,2,3];   print "@pal\n\n"; ($friend[0], $friend[1], $friend[2])=@names; print "@friend\n";