我在Perl 5.8上，需要分配一个默认值。我最终这样做：
if ($model->test) {
$review = "1"
} else {
$review = ''
}
$ model-> test的值将为“1”或未定义。如果$ model->测试中有某些内容，则将$ review设置为“1”，否则设置为等于“”。
因为它不是Perl 5.10我不能使用新的swanky定义或运算符。我的第一反应就是用这样的三元运算符
defined($model->test) ? $review = "1" : $review = '';
但是也没有。
有没有人有一个想法如何更有效地分配？
珍妮
解决方法
我通常会写成：
$review = ( defined($model->test) ? 1 : '' );
其他括号内的其他人阅读代码的清晰度。