summaryrefslogtreecommitdiff
path: root/main/lzo/util/notime.pl
blob: a4e92b0a5b4e740eed9a16b8b2ecfcc100149b61 (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
#! /usr/bin/perl
## vim:set ts=4 sw=4 et: -*- coding: utf-8 -*-
##
##---------------------------------------------------------------------------##
##
##  Author:
##      Markus F.X.J. Oberhumer         <markus@oberhumer.com>
##
##  Description:
##      Remove timing values from a table created by table.pl
##
##  Copyright (C) 1996-2015 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);