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

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Array » shift 




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
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.