Perl函数 open函数读取文件效率比较

blovekyo

　　因为文件行数少了测试不出来效果，我特意做了包含整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;