个人不太接受的perl一个特点

兰花仙子

PromatoMacBook-Pro:~ pro$ irb
>> x=1
=> 1
>> y="2"
=> "2"
>> x+y
TypeError: String can't be coerced into Fixnum
        from (irb):3:in `+'
        from (irb):3
>> x.class
=> Fixnum
>> y.class
=> String
>> x+y.to_i
=> 3

ttcn_cu

回复 20# 兰花仙子


    Perl适合懒人

ttcn_cu

回复 1# 兰花仙子


    刚写了个测路由的代码，调了好久才弄对，正好中你这个陷阱了，果然是个大坑，哈哈

1. #!perl   
   
2. use strict;
   
3. use warnings;
   
4. use 5.010;
   
5. my @mask=qw (248 0 0 0);
   
6. my @ip=qw(20 0 0 0);
   
7. say join '.',  map { $ip[$_] & $mask[$_] }  0..3;
   
8. say join '.',  map { $ip[$_]+0 & $mask[$_]+0 }  0..3;
   
9. say join '.',  map { $ip[$_] & $mask[$_] }  0..3;
   
10. 
    
11. 
    
12. Result：
    
13. 20.0.0.0
    
14. 16.0.0.0
    
15. 16.0.0.0

复制代码

Monox

回复 23# ttcn_cu


    我在想这或许是 Perl 的 bug，Perl 虽然会在需要的时候在字符串和数字之间进行转换，但是转换应该都是临时的，应该不会改变变量本身原来的类型的。事实上我刚才测试了一下只有数字运算操作符会将字符变量永久转换成数字变量，但是字符操作符只会将数字变量临时转换成字符。不知道老版本里的 Perl （比如 Perl 5.8）是不是这样的，我测试了 Perl 5.14.2 和 Perl 5.16.1，都有这个问题。谁感兴趣的话可以尝试去提交个 Perl bug 试试。

pitonas

Perl  适合懒人

zhlong8

回复 24# Monox


    它同时具有两种类型，既是字符串又是数字。他这里的问题是 & 对字符串和数字有两种意义，数字的优先级要更高，qw 产生的是字符串所以一开始是字符串的 & 后面进行了数学运算后里面的值同时具有了两种类型，在进行 & 就是优先级更高的数字 & 了。当然这里的却不太和谐

Monox

回复 26# zhlong8


    我测试的时候是用 Data:umper 测试的，字符变量与一个数字相加以后，Dumper 认为它是数字，数字变量与一个字符进行连接操作以后 Dumper 仍旧认为它是数字，所以这不是 & 的问题。我知道 SV 里同时存在着数字和字符串的 slot，但是并不能因为两个 slot 里都有值了就认为它是数字吧，slot 里的数字只是为了以后运算的效率而考虑的，但是把整个变量当成数字还是很奇怪。不过要是 Larry 本身就是这么考虑的话就没办法了，只是在任何地方都找不到相关的准确说法，所以我在想或许是一个 bug。反正 Perl 反常的东西多得很，我是没办法判断一个现象到底是 feature 还是 bug 的。我本来可以自己尝试去报个 bug 看看那些 porters 是怎么看待这个问题的，不过我现在逐渐地不使用 Perl 了，也就懒得提交 bug 了。

jason680

回复 23# ttcn_cu

use strict;
use warnings;
use 5.010;
my @mask=(248, 0, 0, 0);
my @ip=(20, 0, 0, 0);

say join '.',  map { $ip[$_] & $mask[$_] }  0..3;
say join '.',  map { $ip[$_]+0 & $mask[$_]+0 }  0..3;
say join '.',  map { $ip[$_] & $mask[$_] }  0..3;

result:
16.0.0.0
16.0.0.0
16.0.0.0

---------------------------------------
Note: string also can do &
# perl -e 'print "AB" & "BC"'
@B

slayercboy

回复 28# jason680


是说qw（）默认内容是字符串上下文么

ttcn_cu

我原来的数据都是route命令的屏幕拷贝，所以来源必然是字符形的。估计大部分脚本的实际数据来源都是命令输出，文本读入，网页获取，用户输入一类的。