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

今天学习了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

}