我来出题，看看SHELL、PERL、C或其它语言谁快？

beginner-bj

没有自以为挺公平，因为本来就是特意出的对SHELL来说是长项的题。

你说我是“一 shell 粉，Perl 黑”，这个算是，也不是。我的意图是3楼、14楼表达过了。

发帖原因是 http://bbs3.chinaunix.net/thread-1718391-7-1.html ，详见62楼之前的几楼。

keymanlu

呵呵，我来围观的，我只能做到哪个能达到目的就用哪个，并不会性能的问题，因为通常我只能想到一个办法，甚至是管道很多次或者生成很多临时文件的办法，哈哈，我是初学者。

redspider

  介样的贴子相当受瞩目，大拇指扭了筋，打字好麻烦。

lz 给的第二题，俺试了一下，和写一个文件的速度相当，也想不出什么好办法了，请 Perl 高手指点。

第一题俺给个解法。
另外，几十M的文件确实测不出啥东西，俺用2G的文件测了下，还行。

1. 
   
2. my $offset = 0;        my $s_counter = 0;
   
3. my $buf = q{};
   
4. 
   
5. open(FILE, '<', 'ceshi') or die $!;
   
6. while (1) {
   
7.         seek(FILE, $offset, 2);
   
8.         read(FILE, $buf, 1);
   
9.         if ($buf eq $/) {
   
10.                 $s_counter++;
    
11.                 if ($s_counter == 7) { print( (<FILE>)); last; }
    
12.         }
    
13.         $offset--;
    
14. }
    
15. close FILE;
    

复制代码

Total Elapsed Time = 0.030991 Seconds
  User+System Time = 0.030991 Seconds

cx6445

如果理解各语言的业务逻辑大致在操作系统中的实现过程，这么简单的业务想想就知道了，没什么好测的。

338378WN8

是骡子是马，拉出来溜溜，只会最简单shell的菜鸟拿望远镜围观。
端午节后看结果吧

beginner-bj

回复 23# redspider


第一题就不比了，因为我明显是向着SHELL。
第二题相对比较公平，因为我也不知道如何写个高效的SHELL脚本。这个还要SHELL高手们出手了。

beginner-bj

搜到两个帖子
http://www.vvcha.cn/c.aspx?id=107638
http://bbs.chinaunix.net/thread-1230953-1-1.html
发现第二问可以这样写，看来第二问也明显不公平
ed file <<EOF
$ m 1
1 m $
w
q
EOF

blackold

回复 27# beginner-bj


    这个对大文件就不行了。

beginner-bj

我觉得已经挺快的了，黑哥可有更快的方法？

1. 09:58:18 root@ST-TEST:[/]#ls -l file
   
2. -rw-r--r--   1 root     system    345381000 Jun 13 08:27 file
   
3. 09:58:25 root@ST-TEST:[/]#time ed file <<EOF
   
4. $ m 1
   
5. > $ m 1
   
6. > 1 m $
   
7. > w
   
8. > q
   
9. > EOF
   
10. 
    
11. ?
    
12. ?
    
13. 
    
14. real    0m18.88s
    
15. user    0m10.21s
    
16. sys     0m4.23s
    
17. 09:58:47 root@ST-TEST:[/]#
    
18. 09:58:47 root@ST-TEST:[/]#

复制代码

ly5066113

回复 29# beginner-bj


ed 是 editor
awk,sed 是 filter

ed会一次性将文件内容都载入内存，大文件不行的。