|
Packit Service |
5195f2 |
#! /usr/bin/perl
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
## vi:ts=4
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
##---------------------------------------------------------------------------##
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
## Author:
|
|
Packit Service |
5195f2 |
## Markus F.X.J. Oberhumer <markus@oberhumer.com>
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
## Description:
|
|
Packit Service |
5195f2 |
## Remove timing values from a table created by table.pl
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
## Copyright (C) 1996-2014 Markus Franz Xaver Johannes Oberhumer
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
##---------------------------------------------------------------------------##
|
|
Packit Service |
5195f2 |
|
|
Packit Service |
5195f2 |
|
|
Packit Service |
5195f2 |
while (<>) {
|
|
Packit Service |
5195f2 |
if (substr($_,56) =~ /^\s+[\d\.]+\s+[\d\.]+\s+\|\s*\n$/) {
|
|
Packit Service |
5195f2 |
substr($_,56) = " 0.000 0.000 |\n";
|
|
Packit Service |
5195f2 |
}
|
|
Packit Service |
5195f2 |
print;
|
|
Packit Service |
5195f2 |
}
|
|
Packit Service |
5195f2 |
|
|
Packit Service |
5195f2 |
exit(0);
|
|
Packit Service |
5195f2 |
|