今天学习了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,b,c,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,'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,'d' => 4);
while (($key,$value) = each %ss) 循环键值对
{
print "$key is $ss{$key}\n"; 打印为a is 1 b is 2
}