子程序shift取参数，是否会增加CPU时钟周期？

zhlong8

但楼主问的是子程序取参数，所以起码得搞个 sub 糊弄糊弄吧。
flw 发表于 2011-06-22 15:52

    最终比较的不还是 shift 和索引的差别。用函数包起来会夹杂大量的多余指令，差异会被摊薄

Monox

我又测试了两次，都是 shift 更快，所以，到底哪个快这个好像也不太好说。
一次代码如下：

1. 
   
2. #!/usr/bin/env perl
   
3. 
   
4. use 5.12.0;
   
5. use Benchmark qw(timethese);
   
6. 
   
7. sub sum_a {
   
8.     my $a = shift;
   
9.     my $b = shift;
   
10.     return $a + $b;
    
11. }
    
12. 
    
13. sub sum_b {
    
14.     my $a = $_[0];
    
15.     my $b = $_[1];
    
16.     return $a + $b;
    
17. }
    
18. 
    
19. timethese(90000000, {
    
20.         shift => sub {
    
21.             sum_a(3, 5)
    
22.         },
    
23.         index => sub {
    
24.             sum_b(3, 5)
    
25.         }
    
26.     });
    
27. 
    
28. # vim: sw=4 ts=4 ft=perl expandtab
    

复制代码

输出：

1. 
   
2. $ perl test.pl
   
3. Benchmark: timing 90000000 iterations of index, shift...
   
4.      index: 46 wallclock secs (45.23 usr +  0.02 sys = 45.25 CPU) @ 1988950.28/s (n=90000000)
   
5.      shift: 43 wallclock secs (42.33 usr +  0.03 sys = 42.36 CPU) @ 2124645.89/s (n=90000000)
   

复制代码

另一次从 flw 版主那儿偷学来一个参数(-1)：

1. 
   
2. #!/usr/bin/env perl
   
3. 
   
4. use 5.12.0;
   
5. use Benchmark qw(cmpthese);
   
6. 
   
7. sub sum_a {
   
8.     my $a = shift;
   
9.     my $b = shift;
   
10.     return $a + $b;
    
11. }
    
12. 
    
13. sub sum_b {
    
14.     my $a = $_[0];
    
15.     my $b = $_[1];
    
16.     return $a + $b;
    
17. }
    
18. 
    
19. cmpthese(-1, {
    
20.         shift => sub {
    
21.             sum_a(3, 5)
    
22.         },
    
23.         index => sub {
    
24.             sum_b(3, 5)
    
25.         }
    
26.     });
    
27. 
    
28. # vim: sw=4 ts=4 ft=perl expandtab
    

复制代码

输出：

1. $ perl test2.pl
   
2.            Rate index shift
   
3. index 1872457/s    --   -6%
   
4. shift 1989485/s    6%    --
   

复制代码

这次我没有写错什么吧。

flw

最终比较的不还是 shift 和索引的差别。用函数包起来会夹杂大量的多余指令，差异会被摊薄
zhlong8 发表于 2011-06-22 16:03

    那可不好说。万一在取参数这块有什么优化，那就完全不是同一个问题了。

Monox

最终比较的不还是 shift 和索引的差别。用函数包起来会夹杂大量的多余指令，差异会被摊薄
zhlong8 发表于 2011-06-22 16:03

这个我可以肯定是不一样的。Perl 5.14 的 perldelta 里明确说了在函数调用里 shift 比 shift @_ 要快。

zhlong8

好吧你们赢了

想起之前看精通正则表达式学了一堆优化技巧，结果 Perl 全都已经优化了，一点成就感都没有。那咱就具体情况具体分析吧

flw

好吧你们赢了

想起之前看精通正则表达式学了一堆优化技巧，结果 Perl 全都已经优化了，一点成就感 ...
zhlong8 发表于 2011-06-22 16:14

    所以只有逻辑才是可靠的啊。乌鸦是黑的并不能证明北极熊是白的呀。

Monox

我自己检讨一下，我测试的是 shift 比 index 快，数据在前面的回复里已经给出了。我要检讨的是我在一个15楼里说 index 比 shift 快是因为我是在函数的第一句直接修改了 @_ 的值。
这大概说明了 shift 只在参数传递时可能会比 index 快，但是在一般情况下应该是 index 更快。因此也会有参数传递的优化不足以超过 index 的效率的情况，就像 flw 版主说过的测试结果。
我之前使用的测试环境都是 Linux x64, Perl 5.14.1。

zhlong8

才传这么几个参数根本不可能成为瓶颈，楼主如果真对速度有着无尽的渴望那就把函数都 inline 了吧，提升绝对是这里的百倍

flw

可惜 Perl 没有 inline，很多时候我确实挺喜欢 inline 的。
尤其是做一些统计类的程序时，函数可以让代码结构更清晰，
但是函数体本身又很轻，函数调用的开销比重就很大。所以很矛盾。

3P用户

谢谢，谢谢大家！
这么一个突发奇想的问题，引得大家这么热心，尽管是夏天，但还是让人感觉到温暖。