神奇的substr左值用法

zhlong8

回复 10# 黑色阳光_cu


    Devel::Peek 可以看到它是是 PVLV 类型的值， magic 类型是 substr(可以看 illguts)，具体这个 magic 的实现还没看到

liyangole

{:3_190:} 神奇 哈。

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

黑色阳光_cu

加一行，更清楚substr( $string, $start, $stop ) = 'somevalue'
相当于
substr( $string, $start, $ ...
atiking 发表于 2010-12-17 13:18

   
改了，贴代码时忘加了。

atiking

回复 14# 黑色阳光_cu


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

黑色阳光_cu

回复  黑色阳光_cu


  能帮我解释下，最后一行结果为什么rear是'r'吗
atiking 发表于 2010-12-17 14:30

   
明显，负数位置被转成正的处理了。在字符串"abcdefg"上，位置-1等价于位置6。而"new string"位置6的字母是r

kingwmj

认真学习。。。