perl哈希,perl检测存在,perl提取切片,perl while用法

yzwj2004

　　今天学习了perl的哈希 哈希符号%%
　　#!/usr/bin/perl perl头，如果不能运行则需要换成 #!/usr/bin/perl -w
　　my %ss = ('a' => 1,'b' => 2,'c' => 3,'d' => 4); 哈希数a对应1、b对应2、c对应3、d对应4 也可写成
　　my %ss = ('a',1,'b',2,'c',3,'d',4);  键必须用单引号或双引号括起
　　print(join(',',%ss),"\n");
　　打印出哈希为 a,1,b,2,c,3,d,4  join后面括号的第一个值','定义分隔符，换成'!'为a!1!b!2!c!3!d!4
　　print(join(',',sort keys %ss));  其中sort为排序，功能值可换为scalar(个数)或其他; keys为哈希的键abcd，换成values为哈希值1234 ;  %ss指定哈希对象
　　哈希的检测存在
　　if (exitst($ss{a}))  判断哈希ss中是否有键a,有则
　　{
　　command;
　　}
　　else  没有则
　　{
　　command;
　　}
　　哈希的提取切片
　　my %ss = ('a' => 1,'b' => 2,'c' => 3,'d' => 4);
　　print(join("\n",@ss{a,c}));
　　结果为打印 1 3
　　print @ss{d};
　　结果打印为4
　　循环打印哈希全部键
　　foreach $key (%ss)
　　{
　　print "$key = $ss{$key}"
　　}
　　哈希while的用法
　　my %ss = ('a' => 1,'b' => 2,'c' => 3,'d' => 4);
　　while (($key,$value) = each %ss)  循环键值对
　　{
　　print "$key is $ss{$key}\n";  打印为a is 1 b is 2
　　}