使用三元运算符赋值？

Question

我使用的是 Perl 5.8，需要分配一个默认值。我最终这样做了：

if ($model->test) {
    $review = "1"
} else {
    $review = ''
}

$model->test 的值将是 "1" 或未定义。如果 $model->test 中有内容，请将 $review 设置为 "1"，否则将其设置为 ''< /代码>。

因为它不是 Perl 5.10，所以我无法使用新的时髦的定义或运算符。我的第一反应是像这样使用三元运算符......

defined($model->test) ? $review = "1" : $review = '';

但这也不起作用。

有谁知道如何更有效地分配它？ 珍妮

Answer 1

我通常将其写为：

$review = ( defined($model->test) ? 1 : '' );

其中括号是为了让其他阅读代码的人清楚起见。

Answer 2

你有一个优先级问题。你所拥有的与 You can make it work with parens 相同

( defined($model->test) ? $review="1" : $review ) = '';

。

my $review; defined($model->test) ? ( $review='1' ) : ( $review='' );

但将作业移出会干净得多。

my $review = defined($model->test) ? '1' : '';

---

继续下去，检查该值是否已定义根本没有意义。鉴于仅有的两个可能值是 undef 和字符串 1，一个简单的真值测试就可以了。

my $review = $model->test ? '1' : '';

事实上，既然你希望真实值不变，你可以简单地使用以下

my $review = $model->test || '';

最后，你真的需要将 undef 更改为空字符串吗？如果没有，您可以简单地使用以下命令：

my $review = $model->test;

Answer 3

$model->test 将是 "1" 或未定义。如果 $model->test 中有内容，请将 $review 设置为 "1"，否则设置为 ''

然后就用这个：

$review = $model->test || "";

Answer 4

除了条件运算符之外，我还经常喜欢使用 do，它返回最后计算的表达式的值：

my $review = do {
     if( ... ) { 'foo' }
  elsif( ... ) { 'bar' }
  elsif( ... ) { 'baz' }
  else         { 'defaut' }
  };

Answer 5

我假设 $model->test 应该返回 true 或 false 值。

除非明确指出 false 值为 undef，否则可以重写该方法以开始返回一些其他 false 值。
这会破坏仅检查值是否已定义的任何内容。
（我认为该方法返回 undef 而不是规范的 false 值是一个错误。）

因此设置 $review 的最佳方法是测试返回的真实性价值;不是它的定义。

my $review = $model->test ? 1 : '';

我想指出的是，这仍然存在一个错误。
如果您希望能够将该值用作数字，则如果该值为假，它将发出警告。

要解决此问题，您应该返回 !1 （规范错误值），它将返回一个字符串 '' 值，但也具有数值 0

my $review = $model->test ? 1 : !1;

。它可以简化为：

my $review = !! $model->test; # invert it twice

---

如果您只想在值为 false 时更改该值，则可以使用 or 运算符 ||。

my $review = $model->test || !1;

---

如果您真的只想知道它是否已定义，为什么不使用 已定义。

my $review = defined $model->test;

---

如果您只想在未定义时更改该值，并且您有 Perl 5.10 或更高版本，则可以使用 定义或运算符 (//)。

my $review = $model->test // !1;

在较旧的 Perl 上，这需要多个语句。

my $review = $model->test;
$review = !1 unless defined $review;

Answer 6

首先，“这也不起作用”并不是您能告诉我们的最有帮助的事情。重要的是要确切地知道它为什么不起作用：它做了什么，您期望什么，以及它们有何不同？

但问题在于

defined($model->test) ? $review="1" : $review='';

运算符优先级。条件运算符 ? : 比赋值运算符 = 绑定得更紧密，因此上面等价于：

(defined($model->test) ? $review="1" : $review) = '';

因此，如果定义了 $model->test ，则执行等价操作 您可以用括号

$review = "1" = '';

解决这个问题：

defined($model->test) ? ($review="1") : ($review='');

但实际上，您为什么要这样做？当您想要使用结果时，条件（三元）运算符非常有用。如果结果将被丢弃，就像这里一样，那么使用 if/else 语句会更清晰（而且，正如您所见，更不容易出错）：

if (defined($model->test) {
    $review = "1";
}
else {
    $review = "";
}

或者，如果您坚持将其写在一行上：

if (defined($model->test) { $review = "1"; } else { $review = ""; }

如果您确实想使用条件表达式，可以这样做：

$review = defined($model->test) ? "1" : "";

这可能是一种合理的方法。

BUT：

define 运算符本身会产生 "1" (true) 或 "" (false)。所以整个事情可以简化为：

$review = defined($model->test);

Answer 7

my $result = defined $model->test ? '1' : '';