perl 如何判断数组符号

在 Perl 中，可以使用 `ref` 函数来判断一个变量的引用类型，包括数组引用。如果一个变量是数组引用，它的引用类型是 `'ARRAY'`，可以通过下面的方式判断：

if (ref $array_ref eq 'ARRAY') {
    # $array_ref 是数组引用
}

其中，`$array_ref` 是数组的引用变量。

如果要判断一个变量是否是数组类型，可以使用 `ref` 函数和 `@{}` 符号结合使用，如下所示：

my @array = (1, 2, 3);
my $array_ref = \@array;

if (ref $array_ref eq 'ARRAY' or ref \@{} eq 'ARRAY') {
    # $array_ref 是数组引用或者 @{} 是数组符号
}

这里的 `@{}` 符号表示一个空数组，它的引用类型也是 `'ARRAY'`，可以与数组引用做比较。