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

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