While there are more elements in @array, remove each element with shift : shift « Array « Perl






While there are more elements in @array, remove each element with shift

    

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

 
while ( @array ) {
   $secondTotal += shift( @array );  # remove first element
   print "@array\n";                 # display current @array
}

print "\$secondTotal = $secondTotal\n";

   
    
    
    
  








Related examples in the same category

1.Shift and Unshift
2.The shift function shifts off and returns the first element of an array, decreasing the size of the array by one element.
3.Using shift the get value out of an array
4.Shift value from array
5.shift array