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

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

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




sub collect
{
    my @col;
    while(<>)
    {
        my @split = split //;push @col,[@split];   
    }
    my %hash;my $key= 'a';$hash{$key} = @col;print "$hash{$key}
";
    
    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]转变而来；