perl 哈希(hash)学习笔记（一）
1.什么是哈希哈希是perl的一种数据类型，比较类似数组，用于存放数据，包括2部分关键字keys和值value。不同于数组，哈希访问元素的是按照名字访问标量的key=>value.
hash 用% 来标示
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)
{
printprint "$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 %hash=();
实例
#!/usr/bin/perl -w
my %hash;
$hash{'author'}="Young";
my %food=('fruit',"apple",'drink',"Coco");
my %fruit=(apple=>"fruit",banana=>'fruit');
print "$hash{'author'}\n";
foreach $key (keys %food)
{
print "$key=>$food{$key}\n";
}
my@key=keys %fruit;
my @value=values %fruit;
print @key;
print @value;
print "\n";
print "auther is exists\n" if(exists $hash{'auther'});
delete $food{'drink'};
print "after delete some keyword print \%food\n";
while((my $key,my $value)=each%food)
{
print "$key=>$value\n";
}
结果：
/home/Young> perl hash.pl
Young
fruit=>apple
drink=>Coco
bananaapplefruitfruit
after delete some keyword print %food
fruit=>apple
转载请注明出处
页:
[1]