define elegant :)

my @array1 = ('foo','','bar');
my (@array2);
foreach my $key (@array1) {
 if ($key ne "") {
  push(@array2, $key);
 }
}
undef(@array1)'
@array1 = @array2;
undef(@array2)'

# @array1 is now cleaned

thats A way.... sure you could code it in a cleaner way... you want me to?
hu hu? can i?

Pierre

----- Original Message -----
From: "Zysman, Roiy" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, July 23, 2001 9:59 AM
Subject: Elegent way to extract blank lines from arrays..?


> Hi Guys and Girls,
> Does anyone have an idea of an elegent way to
> extract certain item from an array (not the last one or the first one).
> The array should remain in a right order after the extraction.
> tanx.
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to