我來(lái)出題，看看SHELL、PERL、C或其它語(yǔ)言誰(shuí)快？

beginner-bj

沒(méi)有自以為挺公平，因?yàn)楸緛?lái)就是特意出的對(duì)SHELL來(lái)說(shuō)是長(zhǎng)項(xiàng)的題。

你說(shuō)我是“一 shell 粉，Perl 黑”，這個(gè)算是，也不是。我的意圖是3樓、14樓表達(dá)過(guò)了。

發(fā)帖原因是 http://bbs3.chinaunix.net/thread-1718391-7-1.html ，詳見(jiàn)62樓之前的幾樓。

keymanlu

呵呵，我來(lái)圍觀的，我只能做到哪個(gè)能達(dá)到目的就用哪個(gè)，并不會(huì)性能的問(wèn)題，因?yàn)橥ǔＮ抑荒芟氲揭粋�(gè)辦法，甚至是管道很多次或者生成很多臨時(shí)文件的辦法，哈哈，我是初學(xué)者。

redspider

  介樣的貼子相當(dāng)受矚目，大拇指扭了筋，打字好麻煩。

lz 給的第二題，俺試了一下，和寫(xiě)一個(gè)文件的速度相當(dāng)，也想不出什么好辦法了，請(qǐng) Perl 高手指點(diǎn)。

第一題俺給個(gè)解法。
另外，幾十M的文件確實(shí)測(cè)不出啥東西，俺用2G的文件測(cè)了下，還行。

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;
    

復(fù)制代碼

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

cx6445

如果理解各語(yǔ)言的業(yè)務(wù)邏輯大致在操作系統(tǒng)中的實(shí)現(xiàn)過(guò)程，這么簡(jiǎn)單的業(yè)務(wù)想想就知道了，沒(méi)什么好測(cè)的。

338378WN8

是騾子是馬，拉出來(lái)溜溜，只會(huì)最簡(jiǎn)單shell的菜鳥(niǎo)拿望遠(yuǎn)鏡圍觀。
端午節(jié)后看結(jié)果吧

beginner-bj

回復(fù) 23# redspider


第一題就不比了，因?yàn)槲颐黠@是向著SHELL。
第二題相對(duì)比較公平，因?yàn)槲乙膊恢�道如何�?xiě)個(gè)高效的SHELL腳本。這個(gè)還要SHELL高手們出手了。

beginner-bj

搜到兩個(gè)帖子
http://www.vvcha.cn/c.aspx?id=107638
http://72891.cn/thread-1230953-1-1.html
發(fā)現(xiàn)第二問(wèn)可以這樣寫(xiě)，看來(lái)第二問(wèn)也明顯不公平
ed file <<EOF
$ m 1
1 m $
w
q
EOF

blackold

回復(fù) 27# beginner-bj


    這個(gè)對(duì)大文件就不行了。

beginner-bj

我覺(jué)得已經(jīng)挺快的了，黑哥可有更快的方法？

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:[/]#

復(fù)制代碼

ly5066113

回復(fù) 29# beginner-bj


ed 是 editor
awk,sed 是 filter

ed會(huì)一次性將文件內(nèi)容都載入內(nèi)存，大文件不行的。