perl的or操作符后跟语句块问题

miaho

1^# miaho 发表于 2008-12-21 10:02

$a=1;
$b=2;
($a == $b) or {

print "AAAAAAAAAAAAAAAAAAa\n";

print "BBBBBBBBBBBBBBBBBb\n";

}

为什么这样不行呢？

flw

2^# flw 发表于 2008-12-21 10:15

默写出来的吧？

miaho

3^# miaho 发表于 2008-12-21 10:21

错了，上面的那个代码怎么不能执行呢? 我主要想在一个逻辑操作符后跟多个可执行的语句。

flw

4^# flw 发表于 2008-12-21 10:35

刚才问的是为什么这样可以，
现在又改成了为什么这样不行，
看来行或者不行你都不爽啊。

MMMIX

5^# MMMIX 发表于 2008-12-21 10:50

给 or 后的 block 前加个 do

miaho

6^# miaho 发表于 2008-12-21 11:08

QUOTE:

原帖由 flw 于 2008-12-21 10:35 发表
刚才问的是为什么这样可以，
现在又改成了为什么这样不行，
看来行或者不行你都不爽啊。

惭愧！！！光顾着想这个问题了，把“不”字给丢了。

感谢MMMIX的回答。这就去试试

longbow0

7^# longbow0 发表于 2008-12-21 11:41

如果 or 后的语句不多，可以用逗号 ',' 连接。

zzyong08

8^# zzyong08 发表于 2008-12-21 16:43

if或unless, 也可以啊, 并且可读性更好. 这样写有什么好处吗?

MMMIX

9^# MMMIX 发表于 2008-12-21 20:20

QUOTE:

原帖由 zzyong08 于 2008-12-21 16:43 发表
if或unless, 也可以啊, 并且可读性更好. 这样写有什么好处吗?

楼主这种情况确实应该用 if