perl数据结构

1,{}:hash的引用, $product = {'Retailer' => $retailer,
                             'Name'  => $name};
取产品的名字：$product->{'Name'} or %{$product}

2,[]:数组的引用
3,():hash

$retailer = 'hello';
$name     = 'kankan';

#'{}'->hash(散列)的引用
my $product = {
	'Retailer' => $retailer,
	'Name'     => $name
};
#将hash的引用转化为hash
%productHash = %$product;

#'[]'->数组的引用
my $size = [ L, M, S ];

#将数组的引用转化为数组
@sizes = @$size;

print $product->{'Name'}."\n";

print ${$product}{'Name'}."\n";

print $productHash{"Name"}."\n";

print $size->[1]."\n";

print $$size[1]."\n";

print join "\n" ,@sizes[0..2];

result:
####################################################

kankan
kankan
kankan
M
M
L
M
S

#######################################################