perl 面向对象 -> 符号使用

-> 有两种用法，都和解引用有关。 



第一种用法，就是解引用。 
根据 -> 后面跟的符号的不同，解不同类型的引用， 
->[] 表示解数组引用，->{} 表示解散列引用，->() 表示解子程序引用。 
例子： 
$arr_ref = \@array; 
$arr_ref->[0] 访问数组 @array 的第一个元素。
--------------------------------------------------------
[root@master ~]# cat 1.pl 
@array = qw/1 2 3 4 5/;
##创建数组引用
$arr_ref = \@array; 
print "\@array is @array\n";
print "\$arr_ref is $arr_ref\n";
##访问数组 @array 的第一个元素
print "第一个元素是$arr_ref->[0]\n";
[root@master ~]# perl 1.pl 
@array is 1 2 3 4 5
$arr_ref is ARRAY(0x1512398)
第一个元素是1

--------------------------------------------------------
 
$hash_ref = \%hash; 
$hash_ref->{foo} 访问 %hash 的 foo 分量 

--------------------------------------------------------
[root@master ~]# cat 2.pl 
%hash=('foo',1,'b',2); 
print  %hash;
print "\n";
##定义hash引用

$hash_ref = \