关于perl字符串连接的方法讨论

chenys

perl里面用如下两种方法作字符串连接，为什么效率相差巨大？
方法1：
$line = "123";
$line = $line."456";
此种方法如果放在循环中，大数据量的执行速度极慢

方法2：
$line = "123";
$line .= "456" ;
改用此种方法后速度有质的飞跃,我对perl语言的概念不时很了解，基础也不好，请问高手这两种方式为什么会产生如此大的效率差异？

apile

1. 
   
2. #!/usr/bin/perl
   
3. use Benchmark qw(:all) ;
   
4. 
   
5. timethese(20, {
   
6.         'f1' =>; \&compute1,
   
7.         'f2' =>; \&compute2
   
8. });
   
9. 
   
10. sub compute1(){
    
11.   for($i=0;$i<10000;$i++){
    
12.      $tmp = $tmp."aaa";
    
13.   }
    
14. }
    
15. sub compute2(){
    
16.   for($i=0;$i<10000;$i++){
    
17.      $tmp .= "aaa";
    
18.   }
    
19. }
    
20. 
    

复制代码

Benchmark: timing 20 iterations of f1, f2...
        f1: 97 wallclock secs (96.93 usr +  0.24 sys = 97.17 CPU) @  0.21/s (n=20)
        f2:  1 wallclock secs ( 0.29 usr +  0.15 sys =  0.44 CPU) @ 45.45/s (n=20)

的確比較快....
為什麼？
我猜可能跟pointer取值、運算、給值的次數有關係....
因為 perl取得變量的內容..採用的是二次pointer...
也就是

變量A指向位址B、位址B指向實際內存中的位址...

所以程序中多一個的變量..就會多一次pointer取值...
詳情可能得看perl的source才能知道...:)

lenovo

》》$line = $line."456";
这个语句中，line要被计算两次。
》》$line .= "456" ;
这个计算一次就可以了。
其实这个和下面的一个道理。

1. 
   
2. i = i+2;
   
3. i +=2;
   

复制代码