Perl中的哈希(四)

Perl中的哈希数据结构。相比较于数组，这种数据结构对于数据查找和统计更加方便。

一个特殊的哈希，%ENV，表示当前terminal下，通过setenv设置的variable的键值。

键：环境变量名，，，，值：环境变量值。

哈希是一种数据结构，由一对对的键(keys)--值(values)对来组成。

这些键和值都是任意的标量，但键总会被转换成字符串而且必须是唯一的字符串。

访问哈希元素，    $hash{$some_key}    ##和访问数组的做法类似，只是使用了花括号{}而非方括号[]。

访问哈希表中不存在的值得到undef。

$family_name{'barney'} = 'rubble'        ##完成对某一哈希元素的单一赋值

访问整个哈希，    %family_name      ##此时哈希被转换成列表，列表中的元素为键--值对。

%family_name = ('foo', 35, 'bar', 12.4);

my %new_hash = %old_hash     ##整个hash的赋值，会先将hash分解为键值对，

后在将键值对合并为hash。所以前后顺序可能改变。

还可以将hash写为如下的方式来进行赋值   my %last_name = (

'fred'  =>  'flintstone',

'dino'  =>  undef

);

=>称为胖箭头，来显式的指出其中的键值对，其中键的''可以省略。  $score{'fred'}也可以直接简写为$score{fred}。

哈希中的函数。

keys和values分别返回hash中的键列表和值列表。my @k = keys %hash;      my @v=values %hash;

在标量上下文中，分别返回键元素和值元素的个数。

if(%hash)     {print "....";}         ##在标量上下文，只要hash中有至少一个键值对，就返回真。

each函数，从哈希中返回一组键值。

while ( ($key, $value) = each %hash ) {print "....";}   ##在while中时标量上下文，返回2或0.

exists函数，检查哈希中是否存在某个键。

if (exists $book{"dino"})  {print "....";}

delete函数，删除哈希中的某个键值，不是赋值undef，而是直接删除。

delete $books{$person};

不可以在双引号内，直接内插整个hash。

foreach $persons (sort keys %books)

if( $books($persons) )  {print "$person has $books{persons}";}         ##只可以这样完成单个哈希的内插