Hello again,
I have the following loop:
Simple enough, but I can't figure out how to only set $line equal to strings that contain no text (blank whatever). I have tried the following conditions in various places within the loop with no success. Any ideas?
!/^\s*$/ and !~/^\s*$/
@_ = grep { $_ !/^\s*$/} @_;
TIA
Joe
A clever person solves a problem.
A wise person avoids it.
-- Einstein
I have the following loop:
Code:
20 my $line;
21 foreach $line (@_){ do sth ; }
!/^\s*$/ and !~/^\s*$/
@_ = grep { $_ !/^\s*$/} @_;
TIA
Joe
A clever person solves a problem.
A wise person avoids it.
-- Einstein