blob: 9d8a6d14f392e6b6007bd1038f089bb38d2881dd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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);
|
