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,1,b,2,c,3,d,4join后面括号的第一个值','定义分隔符，换成'!'为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
}
页:
[1]