这些子程序中哪一个不像另一个?
- sub or1 {
- my ($a,$b) = @_;
- return $a || $b;
- }
- sub or2 {
- my ($a,$b) = @_;
- $a || $b;
- }
- sub or3 {
- my ($a,$b) = @_;
- return $a or $b;
- }
- sub or4 {
- my ($a,$b) = @_;
- $a or $b;
- }
我从C和Perl 4来到Perl 5,总是使用||直到我看到更多的脚本使用或和我喜欢它的样子。但是正如上面的测验所示,它不是没有它的缺陷为不道德的。对于使用这两个结构或者使用很多的人,或者,你使用什么经验法则来决定使用哪个结构,并确保代码正在做你认为它正在做什么?
解决方法
由于’or’运算符的低优先级,or3解析如下:
- sub or3 {
- my ($a,$b) = @_;
- (return $a) or $b;
- }
通常的建议是只使用’或’运算符作为控制流:
- @info = stat($file) or die;
有关更多讨论,请参阅perl手册:http://perldoc.perl.org/perlop.html#Logical-or-and-Exclusive-Or