ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Perl 小骆驼 6章笔记 哈希

Perl 小骆驼 6章笔记 哈希

原创 Linux操作系统 作者:zhaojienju 时间:2011-03-08 15:57:16 0 删除 编辑
第六章 哈希
哈希和数组不同的是,其索引不是数字,而是任意的唯一的字符串。

哈希元素的访问
$hash{$some_key}
$family_name{"fred"}="flintstone";
$family_name{"barney"}="rubble";

foreach $person(qw/barney fred/){
  print "I've heard of $person $family_name{$person}.\n":
}

要引用整个hash  %family_name
用列表赋值:
%some_hash=("foo", 35, "bar", 12.4, 2.5, "hello");
赋值给列表:
@array=%some_hash;不按照赋值的顺序打印

hash之间也可以拷贝:
%new_hash=%old_hash;会将哈希展开成列表,在赋值给新的哈希

%inverse_hash=reverse %some_hash;反转value和key,这种要确保value的唯一性

my %last_name=(
  "fred" => "flints",
  "dino" => undef,
  "barney" => "rubble",
  "betty" => "rubble",
)

对哈希的各种函数
1. keys, values
my @k=keys %hash;
my @v=values %hash;
而且两个列表的每个元素是对应顺序的。
my $count=keys %hash; 返回个数

2.each
迭代每一对元素
while (($key,$value)=each %hash){
  print "$key => $value\n";
}
排序:
foreach $key (sort keys %hash){
  $value=$hash($key);
  print "$key =>$value\n"; 或者  print "$key => $hash{key}\n";
}

3.exists
if (exists $book{$dino}){
  print "hey, there's a library card for dino!\n";
}
也就是keys的列表中存在dino时,exists返回true.

4.delete
delete $books{$alice};

如果
$books{"alice"}=undef; 有key,但value值undef
如果delete $books{$alice};则alice这个key都没有了

if (exists $book{"alice"})为true表示有alice这个key,即alice是不是有借书卡
if ($book{"alice"}) 为true表示alice这个key对应的value不是undef,即alice的借书卡是不是从来没用过。没用过就是undef

foreach $person(sort keys %books){
  if ($books{$person}){
    print "$person has $books{$person} items\n";
  }
}

习题:
1.#!c:\perl\bin\perl
$hash{"fred"}="flintstone";
$hash{"barney"}="rubble";
$hash{"wilma"}="flintstone";
$hash{"alice"}=undef;

print "Please input given name:\n";
while ($line=<>) {
  chomp($line);
  if (exists $hash{$line}) {
    if ($hash{$line}) {
      print "family name:$hash{$line}\n";  
    }else{
      print "family name undef\n";
    }
  }else{
  print "given name not exist\n";
  }
  print "Please input given name:\n";

}


2.
#!c:\perl\bin\perl -w
foreach $name(<>){
  chomp($name);
  if (exists $count{$name}){
    $count{$name}+=1;
  }else {
    $count{$name}=1;
  }
}

while (($key,$value)=each %count){
  print "$key => $value\n";
}










来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/11903161/viewspace-688672/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2010-10-05

  • 博文量
    80
  • 访问量
    192305