Re: last element during foreach loop

[Mr. Shawn H. Corey]

On Tue, 2008-10-21 at 10:55 -0400, Mr. Shawn H. Corey wrote:
> if( @list ){
>   my $last_item = pop @list;
>   for my $item ( @list ){
>     # do stuff for all items but last
>   }
>   # do stuff for $last_item
> }
> 

If you want @list restored after you're done processing:

if( @list ){
  my $last_item = pop @list;
  for my $item ( @list ){
    # do stuff for all items but last
  }
  # do stuff for $last_item
  push @list, $last_item;
}


-- 
Just my 0.00000002 million dollars worth,
  Shawn

Linux is obsolete.
-- Andrew Tanenbaum


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/