瞬间对 Perl 编译器怀疑了，is_a is_aa 结果不同！

104359176

以下的代码, 两个函数的内容相同，就是名字不同，返回结果也不同：

1. use 5.024;
   
2. 
   
3. if (is_a('b'))  { say 'ok!' } else { say 'not ok!' }
   
4. if (is_aa('b')) { say 'ok!' } else { say 'not ok!' }
   
5. 
   
6. sub is_a  { my $a = shift; return length($a) == 1 and $a eq 'a' }
   
7. sub is_aa { my $a = shift; return length($a) == 1 and $a eq 'a' }
   

复制代码

输出：

1. Administrator@JZQB659LXCACD19 E:\ssqq\perl-spp
   
2. $ perl test.pl
   
3. not ok!
   
4. ok!

复制代码

另外我发现 return 的优先级比 and 的要高，如果 return 后面有 and, 要用括号扩起来，就没事了。

1. sub is_aa { my $a = shift; return (length($a) == 1 and $a eq 'a') }

复制代码

523066680

回复 1# 104359176

Strawberry perl V5.24
输出：
ok!
ok!
[Finished in 0.1s]

zhlong8

神奇

q1208c

回复 1# 104359176

不要用windows的结果.

windows上的很多实现并不是原样不变的.

104359176

回复 4# q1208c

我只是对 Perl 有点疑问，你到是好，直接对操作系统怀疑了。

q1208c

回复 5# 104359176

因为我在Linux上试了, 正常.

flw

严谨起见，你应该用 cat 的方式来输出你的源代码，而不是直接给出源代码。
也许你编辑的和执行的不是同一份代码。
看代码是没有问题的。

104359176

查看源码，原来是还有另外一个 is_a 的函数作怪，虚惊一场，又对 Perl 有了信心。

1. Administrator@JZQB659LXCACD19 E:\ssqq\perl-spp
   
2. $ type is_a.pl
   
3. use 5.024;
   
4. 
   
5. # return 优先级比 and 高
   
6. if (is_a('b'))  { say 'ok!' } else { say 'not ok!' }
   
7. if (is_aa('b')) { say 'ok!' } else { say 'not ok!' }
   
8. 
   
9. sub is_a  { my $a = shift; return length($a) == 1 and $a eq 'a' }
   
10. sub is_aa { my $a = shift; return (length($a) == 1 and $a eq 'a') }
    
11. 
    
12. Administrator@JZQB659LXCACD19 E:\ssqq\perl-spp
    
13. $ perl is_a.pl
    
14. ok!
    
15. not ok!

复制代码

523066680

老奶奶都不扶，就服这种敢于质疑权威的精神