diff options
Diffstat (limited to 'util/notime.pl')
| -rw-r--r-- | util/notime.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/util/notime.pl b/util/notime.pl new file mode 100644 index 0000000..46eb459 --- /dev/null +++ b/util/notime.pl @@ -0,0 +1,26 @@ +#! /usr/bin/perl +## +## vi:ts=4 +## +##---------------------------------------------------------------------------## +## +## Author: +## Markus F.X.J. Oberhumer <markus@oberhumer.com> +## +## Description: +## Remove timing values from a table created by table.pl +## +## Copyright (C) 1996-2008 Markus Franz Xaver Johannes Oberhumer +## +##---------------------------------------------------------------------------## + + +while (<>) { + if (substr($_,56) =~ /^\s+[\d\.]+\s+[\d\.]+\s+\|\s*\n$/) { + substr($_,56) = " 0.000 0.000 |\n"; + } + print; +} + +exit(0); + |