Thomas Bätzler wrote:
> 
> One possibility that would work is to use
> 
> $ref_array = [ grep /^.+$/, @$ref_array ];

It would be more efficient to use the regex /./s or the length function.  Your
regex has to match ALL the characters.  (And it won't match if there are
multiple lines in the string.)


John
-- 
use Perl;
program
fulfillment

-- 
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