如何在perl中检查匿名数组是否为空

Question

所以我有以下脚本，我正在搞乱了解perl的匿名数组。我正在尝试检查它是否为空，但if检查通过而不是我想要发生的else检查。提前谢谢！

use warnings;
use strict;
use Data::Dumper;


my $result = [];

print STDOUT Dumper $result;

if ($result)
{
    print STDOUT "It has stuff in it\n";
}
else
{
    print STDOUT "It is empty!\n";
}

Answer 1

使用取消引用：

if (@$result) {
    print "Has stuff\n";
} else {
    print "Empty\n";
}