Perl函数 open函数读取文件效率比较
因为文件行数少了测试不出来效果，我特意做了包含整1万行的数据，大小170K本机雷鸟1.1GHZ，内存256兆，IIS5.0 perliisdll环境
####################
方案一 while 输出 最常用
open (FILES, "index");
while (){
print;
}
close(FILES);
程序占用 CPU 时间：0.23 usr + 0.22 sys 合计运行时间 450 毫秒 n
#######################
方案二： 数组读取输出
open (FILES, "index");
@reads=;
print @reads;
程序占用 CPU 时间：4.18 usr + 0.09 sys 合计运行时间 4270 毫秒 这个方法也常用，但效率最低
换为@_;
open (FILES, "index");
@_=;
print @_;
程序占用 CPU 时间：3.64 usr + 0.11 sys 合计运行时间 3750 毫秒 节省一点时间：）
################################ LC
use CGI::Carp qw(fatalsToBrowser);
use Benchmark;
$TT0 = new Benchmark;
print "Content-type: text/html\n\n";
open (FILES, "index");
$/="";
$reads=;
close(FILES);
$/="\n";
@_=split ( /\n/,$reads);
print @_;
###########################YK
print"";
$TT1 = new Benchmark;
$td = Benchmark::timediff($TT1, $TT0);
$td = Benchmark::timestr($td);
$td =~ /(\d+)\s*wallclock secs \(\s*?(\d*?\.\d*?)\s*usr\s*\+\s*(\d*?\.\d*?)\s*sys/i;
my $alltimas=($2+$3)*1000;
print "程序占用 CPU 时间：$2 usr + $3 sys 合计运行时间 $alltimas 毫秒";
exit;
页:
[1]