Re: pack an array

Mon, 02 Jan 2006 15:04:08 -0800 

On Mon, Jan 02, 2006 at 10:07:44AM -0800, Tom Phoenix wrote:


 my @pack;
 my $empties = 0;
 foreach my $item (@array) {
     if ($item eq '') {    # empty string
         $empties++;
     } else {
         push @pack, $item;
     }
 }


Thanks, very nice. It's difficult (for me ;-)) to think in Perl ...
Thanks also for the other hints.
--
Gérard


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

Reply via email to