Mega Code Archive

 

Categories / Perl / Array

 

Removing all elements from element 8 to the end of @array

@array = ( 0 .. 20 ); @array2 = ( A .. F ); print "\@array:  @array\n"; print "\@array2: @array2\n\n"; @chopped = splice( @array, 8 ); print "removed:      @chopped\n",       "leaving:      @array\n\n";