perl 如何判断数组元素符号

在 Perl 中，可以使用 `ref` 函数和 `Scalar::Util` 模块的 `blessed` 函数来判断一个数组元素是否是对象引用。具体方法如下：

use Scalar::Util qw(blessed);

my @array = (1, "string", bless({}, "SomeClass"));

for my $elem (@array) {
    if (blessed($elem)) {
        print "元素 $elem 是对象引用\n";
    } else {
        print "元素 $elem 不是对象引用\n";
    }
}

这里的 `blessed` 函数用于判断一个变量是否是对象引用。如果是对象引用，它会返回对象所属的类名，否则返回 `undef`。

需要注意的是，如果数组中的元素是普通的引用类型，例如数组引用或者哈希引用，也可以使用 `ref` 函数来判断。例如：

my @array = (1, [2, 3], {a => 1, b => 2});

for my $elem (@array) {
    if (ref $elem eq 'ARRAY') {
        print "元素 $elem 是数组引用\n";
    } elsif (ref $elem eq 'HASH') {
        print "元素 $elem 是哈希引用\n";
    } else {
        print "元素 $elem 是标量值\n";
    }
}

这里的 `ref` 函数用于判断一个变量的引用类型。如果是数组引用，它会返回 `'ARRAY'`，如果是哈希引用，它会返回 `'HASH'`，否则返回标量值的类型。