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

miaho

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

             print "AAAAAAAAAAAAAAAAAAa\n";

             print "BBBBBBBBBBBBBBBBBb\n";  

}

为什么这样不行呢？

[ 本帖最后由 miaho 于 2008-12-21 10:19 编辑 ]

flw

默写出来的吧？

miaho

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

flw

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

MMMIX

给 or 后的 block 前加个 do

miaho

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

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

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

longbow0

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

zzyong08

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

MMMIX

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

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