Perl 5.32 定义语句语法

Question

我刚刚设置了一个新的开发环境并从 Centos 7 (perl 5.16 v16) 到 RHEL 8.5 (perl 5.26.3)。 话虽如此，我无法弄清楚这个旧子中定义语句的新语法。 最后一行的任何帮助将不胜感激。 我只是无法让它工作：

my $flags_loop = db()->retrieveSet(table => "flags",order=>["flag"],dir=>'DESC');
my $outflags;

foreach my $flag (@$flags_loop) {
    my $flagsize = db()->count(
        table => "songflag", 
        where => { flagid => $flag->{flagid} } );
    $flag->{flagsize} = $flagsize;
    push (@$outflags, $flag);
}

# in case no flags yet defined
# 5.26 incompatible
if (!defined(@$outflags)) { $outflags=[]; }

Answer 1

我收到类似于以下内容的错误消息：

Can't use 'defined(@array)' (Maybe you should just omit the defined()?)

当我改变时：

if (!defined(@$outflags)) { $outflags=[]; }

至：

if (!(@$outflags)) { $outflags=[]; }

错误消失。

另见：定义

Answer 2

删除该行并替换

my $outflags;

和

my $outflags = [ ];

解释如下。

---

这种结构毫无意义。

通常，当有人使用该构造时，他们想检查数组是否为空。 如果是这种情况，您将替换

if (!defined(@$outflags)) { ... }

和

if (!@$outflags)) { ... }

错误消息甚至表明可能是这种情况。 但事实并非如此。 @$outflags永远不会为空，因此您不会尝试检查它是否为空。

您实际上是在尝试确保$outflags始终是对数组的引用。 如果没有该行，如果没有找到标志， $outflags将是undef 。

因此，具体来说，您正在尝试检查$outflags是否为undef 。 因此，您应该更换

if (!defined(@$outflags)) { ... }

和

if (!defined($outflags)) { ... }

---

也就是说，有一种更简单的方法。 由于$outflags是引用或undef ，我们还可以检查真实性而不是定义性。 这意味着

if (!defined($outflags)) { $outflags=[]; }

可以替换为

if (!$outflags) { $outflags=[]; }

但我们可以简单地使用

$outflags //= [];

但这不是最简单的方法！ 我们可以通过从一开始就初始化$outflags来完全避免这条线！

my $outflags = [];

Answer 3

对非标量事物的defined从来没有像任何人的想法那样工作过，或者至少人们对 DWIM 的定义与defined的原始意图不同。

在 arrays（和其他一些东西）上defined的 Perl 5.005 已弃用，但与许多弃用一样，它实际上并没有 Z34D1F91FB2E514B8576FAB1A75A89A6。 最终，v5.16（你之前使用的版本）认真对待它（不，这次真的。）并添加了一个弃用警告，即使没有启用警告，你也会得到：警告告诉你想要做：

$ perl5.16.3 -e 'defined(@ARGV)'
defined(@array) is deprecated at -e line 1.
    (Maybe you should just omit the defined()?)

没有新语法：只是你根本不使用的旧语法。 Perl 现在在多个版本的弃用警告方面表现得非常好，因为开发人员非常认真地删除了几十年来列出的所有要删除的内容。

使用diagnostics可以对错误进行更详细的解释，向您展示如果要检查数组是否为空该怎么办。

defined(@array) is deprecated at -e line 1 (#1)
    (D deprecated) defined() is not usually useful on arrays because it
    checks for an undefined scalar value.  If you want to see if the
    array is empty, just use if (@array) { # not empty } for example.

    (Maybe you should just omit the defined()?)

即便如此，此功能在 Perl 中一直存在，直到 v5.22。 警告告诉您该怎么做：

$ perl5.32.0 -e 'defined(@ARGV)'
Can't use 'defined(@array)' (Maybe you should just omit the defined()?) at -e line 1.