Mega Code Archive

 

Categories / Perl / Array

 

Delete all remaining elements

@array = ( 0 .. 20 ); @array2 = ( A .. F ); print "\@array:  @array\n"; print "\@array2: @array2\n\n"; splice( @array ); unless ( @array ) {    print "\@array has no elements remaining\n"; }