数组和哈希在perl中使用$符号声明

Question

当我遇到这个问题时，我正在研究Perl中的Arrow Operator：

# Perl program to demonstrate the Arrow Operator

#!/usr/local/bin/perl

use strict;
use warnings;

# reference to array
my $arr1 = [4,5,6];

# array inside array
my $arr2 = [4,5,[6,7]];

# reference to hash
my $has1 = {'a'=>1,'b'=>2};

# hash inside hash
my $has2 = {'a'=>1,'b'=>2,'c'=>[1,2],'d'=>{'x'=>3,'y'=>4}};

# using arrow operator
print "$arr1->[0]\n";
print "$arr2->[1]\n";
print "$arr2->[2][0]\n";
print "$has2->{'a'}\n";
print $has2->{'d'}->{'x'},"\n";
print $has2->{'c'}->[0],"\n";

在这里，使用$符号声明了阵列和哈希，但该代码对此运行良好。当我用 @和％符号替换声明中的$符号时，代码也产生了错误。此代码来自 geeksforgeekss 。

我浏览了互联网以进行解释，但在教育。

Answer 1

[]和{}返回引用，引用是标量。

my $a = [ ... ];
my $h = { ... };

等同于

my @anon_a = ...;
my $a = \@anon_a;

my %anon_h = ...;
my $h = \%anon_h;

，这就是为什么您必须使用

$a->[0]    # Access an element of the array referenced by `$a`.

而不是

$a[0]      # Access an element of the array `@a`.