关于perl运算

saul_yuan

相信以下运算符应该算入门级别的运算符
<<=
>>=
&=  
|=
^=


对于数字的运算我觉得能理解，但是对于字符串我有点困惑

1. #!/bin/bash/perl
   
2. $str1="5 dogs";
   
3. $str1<<=1;
   
4. printf "$str1\n";
   
5. $str1="5 dogs";
   
6. $str1>>=1;
   
7. printf "$str1\n";
   
8. $str1="5 dogs";
   
9. $str1&=1;
   
10. printf "$str1\n";
    
11. $str1="5 dogs";
    
12. $str1|=1;
    
13. printf "$str1\n";
    
14. $str1="5 dogs";
    
15. $str1^=1;
    
16. printf "$str1\n";

复制代码

以上为代码，下面为结果
10
2
1
5
4


有没有人能详细解答一下结果的由来，有点钻牛角尖...

flw

其实就是把字符串转换成数值来计算了。

"5 dogs" 转换成数值是 5。

2gua

看看类型转换的章节。

zhlong8

所谓 integer context 实际上就是把左边的强制转换成整数。
在语言级别上你是无法知道一个 scalar 到底是字符串还是什么类型的数字的，它的类型完全由操作符或者内置函数决定。
    比如 + 左右都应该是数字，那不是数字的就会被转换。
    ＝~ 的右边需要一个 RE 所以如果不是就会被转换为正则表达式，左边需要个字符串如果不是也会被转换。

关键在于每个操作符或关键字需要的类型是确定的，某些时候会有多种用法但是必须通过语法区分比如 x 左边可不一定是字符串

toniz

Perl内部还是很严格的 。

用 $str ='5  dot' 去做运算时候 ，Perl会调用一个Perl_sv_upgrade的方法，将SV ->BODY的指针指向一个PVNV的结构 ，这个结构会复制之前PV结构的所有数据，也就是说这里不但保存了新的数字5，还保留了之前的字符串“5 dot",   然后将目前SV的FLAT改成IOK，也即数字 。

大概内部过程就这样。不过我还没想明白保留之前字符串这有动作有啥用，直接改成IV不就可以了。
还没找到PERL有什么方法可以重新取回 ”5 dot“这个字符串。

zhlong8

Perl内部还是很严格的 。

用 $str ='5  dot' 去做运算时候 ，Perl会调用一个Perl_sv_upgrade的方法，将S ...
toniz 发表于 2011-05-19 10:10

    这里经过赋值虽然字符串形式不可用了但是它是 PVNV 可能将来还会用到字符串格式，到时还会转换，所以没必要释放这部分内存。只要关闭 POK，pPOK 就不会影响程序运行了。而且 SV 只能升级不能降级