diff options
Diffstat (limited to 'test/ccured_olden/bh/normalize.pl')
-rwxr-xr-x | test/ccured_olden/bh/normalize.pl | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/test/ccured_olden/bh/normalize.pl b/test/ccured_olden/bh/normalize.pl deleted file mode 100755 index 102d372f..00000000 --- a/test/ccured_olden/bh/normalize.pl +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/perl -w -# strip wallclock times from output so we can compare - -while ($line = <STDIN>) { - # I don't know if it's a problem, but we seem to get some difference - # about whether the 0's are positive or negative.. so let's change - # all occurrances of "-0.0000" to simply " 0.0000" - $line =~ s/-0\.0000/ 0.0000/g; - - ($firstSix) = ($line =~ /^(\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+)\s+\S+$/); - if ($firstSix) { - # only output the first 6 columns - print ("$firstSix\n"); - } - else { - # no match; print whole line - print ($line); - } -} |