用hash存数组|得地址|取地址

 #!/usr/bin/perl -w
 use strict;

 my %hash = %{&collect};my $arr_ad=$hash{'a'};print "$arr_ad\n";
 print"$arr_ad->[1]\n";
 print "$arr_ad->[1][3]\n";

 sub collect
 {
     my @col;
     while(<>)
     {
         my @split = split //;push @col,[@split];
     }
     my %hash;my $key= 'a';$hash{$key} = \@col;print "$hash{$key}\n";

     return \%hash
 }

 # cat input
 # abcdefg
 # 1234567
 # ABCDEFG
 #
 # cat input |perl t
 # ARRAY(0x9f52f8)
 # ARRAY(0x9f52f8)
 # ARRAY(0x9f4b78)
 # 4
 #

key:

hash的标准形式是：$hash{$key}=value;

取地址：$hash_ad = \%hash;

解地址：

整个hash：%new_hash = %{$hash_ad}；变量形式相对应；

单个hash元素：$single = $hash_ad->{$key};这是由$hash{$key}转变而来；

array：同理

取地址：$arr_ad = \@arr;

解地址：

整个arr：@new_arr = @{$arr_ad}；变量形式相对应；

单个hash元素：$single = $arr_ad->[1];这是由$arr[1]转变而来；