27 lines
586 B
Perl
27 lines
586 B
Perl
|
#! /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);
|
||
|
|
|