Gunnar Hjalmarsson wrote:
while (<DATA>) { my ($tag, $result) = split /[ :]+/; if ($result =~ /^\d+$/ and $result > 0) { ...
The data as posted had white space trailing some of the digits after the colons.
Yes, but how would that matter? Please read the second sentence in "perldoc -f split".
-- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
