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

flw

楼主这是丢了西瓜捡芝麻啊。
同意仙子的说法。

Monox

shift是会慢一点。
兰花仙子 发表于 2011-06-21 16:38

shift 应该会快一点。不知是小骆驼书还是其它什么书上说过，在 C 语言里使用下标索引是很快的，但是在 Perl 里面显示的下标索引会降低速度，使用 shift, unshift 等会更快点。因为 Perl 对 AV 做过优化，让 AV 的常用操作比在 Perl 里直接使用下标索引更快。
于是我做了以下测试：

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(90000000, {
    
20.         shift => &sum_a,
    
21.         index => &sum_b
    
22.     });
    
23. 
    
24. # vim: sw=4 ts=4 ft=perl expandtab
    

复制代码

输出结果：

1. 
   
2. $ perl test.pl
   
3.              Rate index shift
   
4. index 140625000/s    --   -3%
   
5. shift 145161290/s    3%    --
   

复制代码

也就是说同时运行 90000000 次的话，使用 shift 比使用 index 要快 3%，不过，正如大家说的，这点差异是几乎可以忽略的。把 90000000 改成 10000000 以下的数的结果类似如下：

1. $ perl test.pl
   
2.             (warning: too few iterations for a reliable count)
   
3.             (warning: too few iterations for a reliable count)
   
4.              Rate shift index
   
5. shift 100000000/s    --  -20%
   
6. index 125000000/s   25%    --
   

复制代码

Monox

回复 12# Monox
把 cmpthese 改成 timethese 的结果：

1. 
   
2.     $ perl test.pl
   
3. Benchmark: timing 90000000 iterations of index, shift...
   
4.      index:  1 wallclock secs ( 0.73 usr +  0.01 sys =  0.74 CPU) @ 121621621.62/s (n=90000000)
   
5.      shift:  1 wallclock secs ( 0.28 usr + -0.02 sys =  0.26 CPU) @ 346153846.15/s (n=90000000)
   
6.             (warning: too few iterations for a reliable count)
   

复制代码

注意最后说 90000000 还是不够喔，我就不继续上调这个次数了。

zhlong8

回复  Monox
把 cmpthese 改成 timethese 的结果：注意最后说 90000000 还是不够喔，我就不继续上调这个次 ...
Monox 发表于 2011-06-22 14:43

    你根本没有传入参数比较个什么？ shift 可以直接检测出来 @_ 为空。

1. use Benchmark;
   
2. 
   
3. my @a = (1..1000000);
   
4. my @b = (1..1000000);
   
5. 
   
6. timethese 1, {
   
7.     shift => sub {
   
8.         my $b;
   
9.         for (1 .. @a) {
   
10.             $b = shift @a;
    
11.         }
    
12.     },
    
13.     ref => sub {
    
14.         my $b;
    
15.         for (1 .. @b) {
    
16.             $b = $b[$_];
    
17.         }
    
18.     }
    
19. }

复制代码

Monox

回复 14# zhlong8
喔，一不小心忘了传参数了，我修改了一下代码，好像 index 比 shift 还是快点

1. 
   
2. $ perl test.pl
   
3. Benchmark: timing 90000000 iterations of index, shift...
   
4.      index:  1 wallclock secs ( 0.71 usr + -0.01 sys =  0.70 CPU) @ 128571428.57/s (n=90000000)
   
5.      shift:  0 wallclock secs ( 0.74 usr +  0.00 sys =  0.74 CPU) @ 121621621.62/s (n=90000000)
   

复制代码

不好意思刚才搞错了。

jason680

看半天,看不出所以然....

没有说参数只能shift或$_[n]
foreach(@_)直接用不就好了....

11楼的"丢了西瓜捡芝麻啊"....妙哉妙哉

flw

你根本没有传入参数比较个什么？ shift 可以直接检测出来 @_ 为空。
zhlong8 发表于 2011-06-22 14:53

    你这个测试很怪异，感觉不足信的样子。

zhlong8

你这个测试很怪异，感觉不足信的样子。
flw 发表于 2011-06-22 15:35

    只想比较 shift 和索引两种方法的速度，可是 shift 会改变数组一时想不出来好办法了

flw

我这里测试的结果是 index 快，5.8.5 下快 12%，5.14 下快 9%

1. #!/usr/bin/perl
   
2. 
   
3. use Benchmark qw(:all);
   
4. 
   
5. sub test_shift {
   
6.     my $left  = shift;
   
7.     my $right = shift;
   
8. 
   
9.     return $left + $right;
   
10. }
    
11. 
    
12. sub test_index {
    
13.     my $left  = $_[0];
    
14.     my $right = $_[1];
    
15. 
    
16.     return $left + $right;
    
17. }
    
18. 
    
19. cmpthese( -1, {
    
20.     shift => sub {
    
21.         test_shift( 1, 2 );
    
22.     },
    
23.     index => sub {
    
24.         test_index( 1, 2 );
    
25.     }
    
26. } );

复制代码

flw

只想比较 shift 和索引两种方法的速度，可是 shift 会改变数组一时想不出来好办法了
zhlong8 发表于 2011-06-22 15:43

    但楼主问的是子程序取参数，所以起码得搞个 sub 糊弄糊弄吧。