notime.pl

来自「lzo-1.08-src.zip 高效的压缩解压代码」· PL 代码 · 共 28 行

#! /usr/bin/perl
##
## vi:ts=4
##
##---------------------------------------------------------------------------##
##
##  Author:
##      Markus F.X.J. Oberhumer         <[e-mail]>
##
##  Description:
##      Remove timing values from a table created by table.pl
##
##  Copyright (C) 1996-2002 Markus Franz Xaver Johannes Oberhumer
##
##---------------------------------------------------------------------------##


while (<>) {

	if (substr($_,52) =~ /^\s+[\d\.]+\s+[\d\.]+\s+\|\s*\n$/i) {
		substr($_,52) = "      0.00      0.00 |\n";
	}
	print;
}

exit(0);