设为首页 - 加入收藏 焦点技术网
热搜:java
当前位置:首页 >

转载:Perl与shell的性能比较

2008-02-02 10:57:00.0 perl shell user file 测试  
导读:原文地址:http://www.simplelife.cn/blog/post/1/718 分别用shell和perl逐行读一个450M的文本文件,并写入另一文件。#!/bin/shwhile read linedo    echo $line >> a;done < "file4read.txt" #!/usr/bin/perlopen ( readfile , "file4read.txt")...。。。

原文地址:http://www.simplelife.cn/blog/post/1/718

 

分别用shell和perl逐行读一个450M的文本文件,并写入另一文件。

#!/bin/sh
while read line
do
    echo $line >> a;
done < "file4read.txt"

 

#!/usr/bin/perl
open ( readfile , "file4read.txt") or die ("Could not open the filen");
open ( writefile , ">b" );
while( $line =  )
{
    print writefile $line;
}
close( writefile );
close( readfile );

测试结果:

[root@test]# time ./read.sh 

real    13m18.797s
user    9m22.840s
sys     3m30.290s
[root@test]#
[root@test]# time ./read.pl

real    0m55.948s
user    0m10.720s
sys     0m2.980s
[root@test]#

 相当明显! 

 

(编辑: hoowa)

网友评论
相关文章