perl数据结构

diaoyudao

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
#######################################################