Help for this page

Select Code to Download

Select or download this

  print "TFD>  About to call &parse_results ...\n";
  &parse_results($p);
  printf "TFD>  Done &parse_results, p->[0] = '%s'\n", $p->[0];

Select or download this

  if ($mystr =~ /Total lines processed:\s+(\d+)/) {
      my $total = $1;
...
  }
  print "TFD> \e[7mUnexpected format of 'mystr':\e[m\n";
  print "TFD>     '$mystr'\n";