release/src/router/lzo/util/notime.pl

   1 #! /usr/bin/perl
   2 ##
   3 ## vi:ts=4
   4 ##
   5 ##---------------------------------------------------------------------------##
   6 ##
   7 ##  Author:
   8 ##      Markus F.X.J. Oberhumer         <markus@oberhumer.com>
   9 ##
  10 ##  Description:
  11 ##      Remove timing values from a table created by table.pl
  12 ##
  13 ##  Copyright (C) 1996-2011 Markus Franz Xaver Johannes Oberhumer
  14 ##
  15 ##---------------------------------------------------------------------------##
  16
  17
  18 while (<>) {
  19     if (substr($_,56) =~ /^\s+[\d\.]+\s+[\d\.]+\s+\|\s*\n$/) {
  20         substr($_,56) = "     0.000     0.000 |\n";
  21     }
  22     print;
  23 }
  24
  25 exit(0);
  26