Using Pop to remove element from an array : pop « Array « Perl






Using Pop to remove element from an array

   
for ( $i = 1; $i <= 5; ++$i ) {
   push( @array, $i );            
   print "@array\n";              
}

while ( @array ) {
   $firstTotal += pop( @array );  # remove last element
   print "@array\n";              # display current @array
}

print "\$firstTotal = $firstTotal\n\n";

   
    
    
  








Related examples in the same category

1.Paper Stacks
2.The pop function pops off the last element of an array and returns it.
3.Pop value out of array
4.$s = pop @{[@a]};
5.Push, pop, shift and unshift an array