创建Perl哈希表几种方法.docx

创建Perl哈希表的几种方法下面介绍几种不同的创建Perl哈希表的方法，虽然表现形式不一样，但是它们的作用是一样的。①%hash=(fruit?=apple,sandwich=hamburger,drink?=bubbly,);②%hash=(fruit?,apple,sandwich,hamburger,drink?,bubbly,);③%hash=(fruit?,apple,sandwich,hamburger,drink?,bubbly,);④%hash=(fruit??applesandwich?hamburgerdrink??bubbly);Perl – 遍历二维Hash使用$hash{$key1}{$key2} = $value; 遍历（注意加粗与加下划线的语句）foreach my $key1 (keys %hash){my $hash2 = $hash{$key1};foreach my $key2 (sort{$hash2-{$b}=$hash2-{a}} keys?%$hash2){print $key1.”\t”.$key2.”\t”.$hash2-{$key2}.”\n”;}}对比单维哈希foreach my $key (sort{$hash{$b}=$hash{$a}} keys %hash){print $key.”\t”.$hash{$key}.”\n”;}实际中的应用：比如一个二维Hash：$VAR1 ={??????????0={???????????????????lu_id=529,???????????????????lu_contract_id= ,???????????????????lu_name=上海XXXX科技有限公司,???????????????????lu_loginid=上海XXXX?????????????????}????????};?????????1={???????????????????lu_id=784,???????????????????lu_contract_id= ,???????????????????lu_name=北京XXXX广告???????????????????lu_loginid=北京XXXX?????????????????}????????};现在想把里面所有的lu_id组成一个列表，程序如下：foreach my $key (sort keys %hash){????my $value= $hash{$key};????push @list,$value-{lu_id};}2.hash 操作?? a.增加???? my %hash; //定义　　第一种写法：$hash{author}=Young;? #author 是关键字，Young 是value???? 与数组一样，hash作为整体时候是这样%hash 带标示符%，作为单个元素使用要使用$而不是%?????第二种写法：?my %food=(fruit,apple,drink,Coco);???????? #类似数组初始化注意这里使用的是( )不是{}? {},用了它实际就是创建了一个引用，正确的就是(),圆括号否则会报 Reference found where even-sized list expected at hash.pl line 4.　? 第三种写法：my %fruit=(apple=fruit,banana=fruit);??? #???? =是perl运算符，用于hash?????? b.使用hash值?????? 单个使用：$hash{author};???????? #????? ?$哈希名{$keyword}???????全部使用：foreach $key (keys %food)?????????????????????? {???????????????????????????????????? print??print $key=$food{$key}\n;???? #使用keys %food 遍历%food的每一个关键字????????????????????????? ?}?????????????获取所有的key：my ?@key=keys %fruit;???????获取所有的value:? my @value=values??%fruit;???????????????????????????????????????????3.hash 函数 exists 和delete?? 判断某个关键字是否存在 exists $hash{auther}?? 删除某个关键字 delete %hash{$keyword}?? 删除整个hash %ha