print "TFD> About to call &parse_results ...\n"; &parse_results($p); printf "TFD> Done &parse_results, p->[0] = '%s'\n", $p->[0];
if ($mystr =~ /Total lines processed:\s+(\d+)/) { my $total = $1; return $total; } print "TFD> \e[7mUnexpected format of 'mystr':\e[m\n"; print "TFD> '$mystr'\n";
In reply to Re: debugging - straw poll ...
by liverpole
in thread debugging - straw poll ...
by danmcb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |