How does this not meet your spec?my $result = `$command`; my @lines = split /\n/, $result; for(@lines) { next if /<BEA-\d+>/; next if !/\S/; print "$_\n"; }
#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.
In reply to Re^5: neglect warnings in open 3 HANDLE_OUT
by kennethk
in thread neglect warnings in open 3 HANDLE_OUT
by sandeepda
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |