diff options
author | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-06-28 10:15:24 +0100 |
---|---|---|
committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-06-28 10:15:24 +0100 |
commit | e06d0bbf2a7edea146a4041a3c85d77d11d34e48 (patch) | |
tree | 8d4fcff7ab3705384a15126ad3b68db5686e0f8b /util/notime.pl | |
download | lzo-e06d0bbf2a7edea146a4041a3c85d77d11d34e48.tar.gz |
Tarball conversion
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..9d8a6d1 --- /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-2011 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); + |