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

beginner-bj

鉴于最近的火热争论
http://bbs.chinaunix.net/thread-1714400-1-1.html
http://bbs.chinaunix.net/thread-1718391-1-1.html

我来出题，看看SHELL、PERL、C或其它语言到底谁快？先生成一个大文件file

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

题目1：求文件file的最后三行的内容
题目2：将文件file的最后一行和第一行对调位置，文件名不变

miniqq

学过汇编语言的人 会觉得这些问题很傻

如果程序的"思想"很简单,语言根本就没有比较的资格.

如果程序的"思想"够复杂,真正有意义的比较系 - 机器.

beginner-bj

我主要是针对那两个贴出的题。
其实我的本意是：尺有所短、寸有所长。

Shell_HAT

连Shell教程和Perl教程都没有看完的一小撮不明真相的群众手持酱油瓶内心淡定且秩序井然地围观中

ywlscpl

前排围观

iori809

大拿们都围观了那我只能在后面听声啦
这个帖子一定不能沉~看到的CUER一定要顶啊HOHO~

渣渣鸟

葵花牌酱油党路过。

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

复制代码

expert1

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