Mega Code Archive

 

Categories / Perl / Array

 

Remove elements from position 7 onward

#!/usr/bin/perl -w @array = (1,2,3,4,5,6,7,8,9); print "@array\n"; $offset = 7; splice(@array, $offset);