Re: Removing blank lines from array

Or even better as:

my @info = grep { !/^\s*$/ } <READ>;
chomp(@info);
[download]

Then empty lines (with no whitespace) will be skipped, too

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"

Comment on Re: Removing blank lines from array Download Code

Replies are listed 'Best First'.
•Re: Re: Removing blank lines from array by merlyn (Sage) on Feb 28, 2002 at 16:53 UTC
Or even better-better as: `chomp(my @info = grep /\S/, <READ>);` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l]
Re: •Re: Re: Removing blank lines from array by PrakashK (Pilgrim) on Feb 28, 2002 at 17:26 UTC
Shouldn't that be: `my @info; chomp(@info = grep /\S/, <READ>);` [download] so that @info is accessible later? /prakash	[reply] [d/l]
•Re: Re: •Re: Re: Removing blank lines from array by merlyn (Sage) on Feb 28, 2002 at 17:32 UTC
No. It works as-is. There's no new scope there. I use that idiom all the time: `chomp(my $input = <FOO>);` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l]
Re: Re: •Re: Re: Removing blank lines from array by rjray (Chaplain) on Feb 28, 2002 at 23:56 UTC
`@info` will still be visible after the `chomp()`. There is no enclosing scope there to cause the lexical nature to release the array. --rjray	[reply]