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

beginner-bj

鑒于最近的火熱爭(zhēng)論
http://72891.cn/thread-1714400-1-1.html
http://72891.cn/thread-1718391-1-1.html

我來(lái)出題，看看SHELL、PERL、C或其它語(yǔ)言到底誰(shuí)快？先生成一個(gè)大文件file

>file
a=1
while [ $a -le 1000 ];do
        ((a=$a+1))
        cat /etc/services >>file
done

題目1：求文件file的最后三行的內(nèi)容
題目2：將文件file的最后一行和第一行對(duì)調(diào)位置，文件名不變

miniqq

學(xué)過(guò)匯編語(yǔ)言的人 會(huì)覺得這些問(wèn)題很傻

如果程序的"思想"很簡(jiǎn)單,語(yǔ)言根本就沒(méi)有比較的資格.

如果程序的"思想"夠復(fù)雜,真正有意義的比較系 - 機(jī)器.

beginner-bj

我主要是針對(duì)那兩個(gè)貼出的題。
其實(shí)我的本意是：尺有所短、寸有所長(zhǎng)。

Shell_HAT

連Shell教程和Perl教程都沒(méi)有看完的一小撮不明真相的群眾手持醬油瓶?jī)?nèi)心淡定且秩序井然地圍觀中

ywlscpl

前排圍觀

iori809

大拿們都圍觀了那我只能在后面聽聲啦
這個(gè)帖子一定不能沉~看到的CUER一定要頂啊HOHO~

渣渣鳥

葵花牌醬油黨路過(guò)。

lkk2003rty

滯后式圍觀。。。。。。。

bbgg1983

1. $ time awk -v RS="xxx" '{print $NF-2,$NF-1,$NF}' c
   
2. 9998 9999 10000
   
3. 
   
4. real    0m0.085s
   
5. user    0m0.030s
   
6. sys     0m0.046s
   
7. 
   
8. $ time awk '{A=B;B=C;C=$0}END{print A,B,C}' c
   
9. 9998 9999 10000
   
10. 
    
11. real    0m0.098s
    
12. user    0m0.077s
    
13. sys     0m0.031s
    
14. 
    
15. $ time awk '{a[NR]=$0}END{print a[NR-2],a[NR-1],a[NR] }' c
    
16. 9998 9999 10000
    
17. 
    
18. real    0m0.133s
    
19. user    0m0.109s
    
20. sys     0m0.030s

復(fù)制代碼

expert1

前排就座，順便拿2分走人