使用三元运算符赋值？

Question

我在 Perl 5.8 上，需要分配一个默认值。 我最终这样做了：

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

$model->test的值将是"1"或未定义。 如果$model->test ，请将$review设置$review "1"否则将其设置为等于'' 。

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

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

但这也不起作用。

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

Answer 1

我通常会这样写：

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

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

Answer 2

你有一个优先级问题。 你拥有的是一样的

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

你可以让它与parens一起工作。

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设置$review "1"否则将其设置为''

然后只需使用这个：

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

Answer 4

除了条件运算符，我经常喜欢使用do ，它返回最后一个评估表达式的值：

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

Answer 5

我假设$model->test应该返回一个真值或假值。

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

所以设置$review最好的方法就是测试返回值的真实性； 不是它的定义。

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

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

要解决这个问题，您应该返回!1 （规范的假值），它将返回一个值为字符串''的值，但其数值也为 0。

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

请注意，它可以简化为：

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

---

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

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

---

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

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" : "";

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

但 ：

defined运算符本身产生"1" （真）或"" （假）。 所以整个事情可以简化为：

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

Answer 7

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