<1>数据引用与匿名存储

引用本身就是一种标量变量

引用变量,如 $ra 或$rarray ,就是一种普通的标量变量,因为我们使用"$" 符号。

变量变量可以是一个整数,一个字符串或者一个引用,而且还可以被重新任意的赋值为这些数据类型中的任一种

Vsftp:/root/perl/10# cat a1.pl
my $arr="111";

my $ref=\$arr;

print $ref;
print "\n";
Vsftp:/root/perl/10# perl a1.pl
SCALAR(0xa50e38)

间接访问：

间接访问的意思就是取得引用所指的变量的值

Vsftp:/root/perl/10# cat a2.pl
use Data::Dumper;
my $var="aa";
my $key=\$var;
$hash{$key}=11;
print Dumper(%hash);
print "\n";

Vsftp:/root/perl/10# perl a2.pl
$VAR1 = 'SCALAR(0x1f19438)';
$VAR2 = 11;

对标量变量的引用

对数组的引用:

Vsftp:/root/perl/10# cat a5.pl
my @array=qw/ ab bc cd de ef/;
print "\$array[2] is $array[2]\n";

Vsftp:/root/perl/10# perl a5.pl
$array[2] is cd

Vsftp:/root/perl/10# cat a5.pl
my @array=qw/ ab bc cd de ef/;
print "\$array[2] is $array[2]\n";

print "\@array is @array\n";

my @arr2=@array[0,1,3];
print "\@arr2 is @arr2\n";

Vsftp:/root/perl/10# perl a5.pl
$array[2] is cd
@array is ab bc cd de ef
@arr2 is ab bc de

简明的箭头记号:

Perl 提供了另一种简单易读的用以存取数组和散列表元素的语法结构:"->[]" 记号

Vsftp:/root/perl/10# cat a6.pl
my @array=qw/ab bc cd de ef/;
$rarray=\@array;
print $rarray;
print "\n";
print @$rarray;
print "\n";
print "11111111\n";
print $$rarray[1];
print "\n";
print "2222222222\n";
print $rarray->[1];
print "\n";

Vsftp:/root/perl/10# perl a6.pl
ARRAY(0xf82450)
abbccddeef
11111111
bc
2222222222
bc

与数组类似, 你可以通过使用->{} 记号来存取散列表中的数据元素:

Vsftp:/root/perl/10# cat a7.pl
%hash=("a"=>"b","c1"=>"d2","dd"=>"eq21");
print %hash;
print "\n";

$rhash=\%hash;
print $$rhash{"dd"};
print "\n";
print $rhash->{"dd"};
print "\n";

Vsftp:/root/perl/10# perl a7.pl
abddeq21c1d2
eq21
eq21

不存在自动间接访问:

Vsftp:/root/perl/10# cat a8.pl
$rarray=\@array;
push ($rarray ,1,2,3);

Vsftp:/root/perl/10# perl a8.pl
Type of arg 1 to push must be array (not scalar dereference) at a8.pl line 2, near "3)"
Execution of a8.pl aborted due to compilation errors.

push 第一个参数必须是数组

Vsftp:/root/perl/10# cat a8.pl
$rarray=\@array;
push (@$rarray ,1,2,3);
print $rarray;
print "\n";
print @$rarray;
print "\n";

Vsftp:/root/perl/10# perl a8.pl
ARRAY(0x211f480)
123

使用引用:

Vsftp:/root/perl/10# cat a9.pl
@array1=(1,2,3);
@array2=(4,5,6,7);
AddArrays (\@array1,\@array2);## 以引用方式传递数组

print "\@array1 is @array1\n";
print "\@array2 is @array2\n";

sub AddArrays
{
   my ($rarray1,$rarray2) = @_;
    $len2 = @$rarray2; ##array2的长度
    print "\$len2 is $len2\n";
    for ($i = 0;$i<$len2;$i++){
      print "\$i is $i\n";
      my $str = $rarray1->[$i] + $rarray2->[$i];
      print "\$str is $str\n";
}
};
Vsftp:/root/perl/10# perl a9.pl
$len2 is 4
$i is 0
$str is 5
$i is 1
$str is 7
$i is 2
$str is 9
$i is 3
$str is 7
@array1 is 1 2 3
@array2 is 4 5 6 7

运行效率:

通过使用引用,我们可以高效的向子例程中传入或传出大量数据

匿名存储的引用:

到目前为止,我们学习创建了对已存在变量的引用,现在我们要学习对"匿名"数据结构的引用,

也就是那些没有同变量名关联的值

创建匿名数组,需要使用方括号而不是圆括号,如:

$ra = []; ##创建一个空的匿名数组,并返回对它的引用

$ra = [1,"hello"];## 创建一个经过

Vsftp:/root/perl/10# cat a10.pl
my $rh=(1,"hello");
print "\$rh is $rh\n";
Vsftp:/root/perl/10# perl a10.pl
$rh is hello

## 这是一个普通的使用%前缀的散列表,它由圆括号所包围的列表初始化

Vsftp:/root/perl/10# cat a11.pl
%hash = ("flock"=>"birds","pride" =>"lions");
print %hash;
print "\n";
Vsftp:/root/perl/10# perl a11.pl
flockbirdspridelions

##匿名散列表是一组用大括号括起来的列表

Vsftp:/root/perl/10# perl a12.pl
$a is
$$a is hello world

多重引用的间接访问:

Vsftp:/root/perl/10# cat a13.pl
$rarray=[a1,b2,c3,d4,e5];
print $rarray->[1];
print "\n";
print $$rarray[1];
print "\n";

Vsftp:/root/perl/10# perl a13.pl
b2
b2

嵌套数据结构:

20Vsftp:/root/perl/10# cat a14.pl
%sue = (
      'name' => 'Sue',
      'age' => '45');

%john = (
       'name' =>'John',
       'age' =>'20');

%peggy = (
       'name' => 'Peggy',
       'age' =>'16');

@children = (\%john,\%peggy);
$sue{'child'} = \@children;

print $sue{'child'}->[0]->{age};
Vsftp:/root/perl/10# perl a14.pl
20Vsftp:/root/perl/10#

隐含的创建复杂的数据结构:

Vsftp:/root/perl/10# cat a14.pl
%sue = (
      'name' => 'Sue',
      'age' => '45');

%john = (
       'name' =>'John',
       'age' =>'20');

%peggy = (
       'name' => 'Peggy',
       'age' =>'16');

@children = (\%john,\%peggy);
$sue{'child'} = \@children;

print $sue{'child'}->[0]->{age};
print "\n";
print %sue;
print "\n";

$sue{'child'}->[0]->{age}=99;
print $sue{'child'}->[0]->{age};
print "\n";
Vsftp:/root/perl/10# perl a14.pl
20
nameSuechildARRAY(0x1e356a8)age45
99

最后的缩写:省去两个下表间的箭头:

Vsftp:/root/perl/10# cat a15.pl
%sue = (
   'name' => 'Sue',
   'age' =>'45',
   'children' =>[
              {
               'name' =>' John',
                'age' =>'20'
              },
             {'name' =>'Peggy',
              'age' =>'16'
              }
]
);
print %sue;
print "\n";
Vsftp:/root/perl/10# perl a15.pl
nameSuechildrenARRAY(0x1f01648)age45

引用的查询: