神奇的substr左值用法

atiking

黑色阳光_cu 发表于 2010-12-16 17:00

加一行，更清楚

1. 
   
2. #!/bin/env perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $str = "abcdefg";
   
8. *front = \substr($str, 0, 1);
   
9. *rear = \substr($str, -1, 1);
   
10. our ($front, $rear);
    
11. 
    
12. print "str: $str\n";
    
13. print "front: $front    rear: $rear\n";
    
14. 
    
15. $front = 1;
    
16. $rear = 2;
    
17. print "str: $str\n";
    
18. print "front: $front    rear: $rear\n";
    
19. 
    
20. $str = "new string";
    
21. print "str: $str\n";
    
22. print "front: $front    rear: $rear\n";
    

复制代码

substr( $string, $start, $stop ) = 'somevalue'
相当于
substr( $string, $start, $stop , 'somevalue' );


不过$str赋值为"new string"后，为什么print出来的结果是

front:n   rear:r

atiking

回复 14# 黑色阳光_cu


  能帮我解释下，最后一行结果为什么rear是'r'吗