http://www.perlmonks.org?node_id=1074419


in reply to Re^2: Reading file and matching lines
in thread Reading file and matching lines

"...only report any errors if there are any"

If so, why not something simple like this:

while (<IN>) {
    print qq($1\n) if /^(E)/;
    print qq($1\n) if /^(G)/;
    die $1 if /^(h)/;
}

[download]

Or do i still misunderstand the specs?

Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

In Section Seekers of Perl Wisdom