Perl语言入门笔记 第六章 哈希(hash)

=pod

哈希

    哈希表里只是一堆的键值对而已，而没有任何顺序，键可以是任意字符串，值也是
    awk的哈希键值对增多的时候会逐渐变慢，而perl没有这个缺点

 访问哈希元素：
    $hash{$some_key}

    foreach my $person (qw< barney fred >)
    {
        print "I'v heared of $person $family_name{$person}.\n";
    }
    在挑选哈希名的时候，最好使得哈希名和键之间能放进去一个"for"字，比如"family_name for fred"是filntstone,
    因此把哈希命名为family_name能清晰地反映出键和值之间的关系。
    $foo = 'bar';
    print $family_name{$foo . 'ney'}; #打印"rubble",连接在一块


    哈希可以被转换成列表

    哈希赋值：
        不是常见用法，但哈希真的可以用一般的赋值语法来赋值；
            my %new_hash = %old_hash;
            得到一个反序的哈希：键值互换
            my %inverse_hash = reverse %any_hash;

 胖箭头：
    my $last_name = (
        'fred' => 'flintstone',
        'dino' => 'undef',
    );

哈希函数：
    perl中有很多有用的函数可以一次处理整个哈希。
    keys函数能返回哈希的键列表，而values函数能返回对应的值列表。如果哈希没有任何的成员，则两个函数都返回空列表

    my @k = keys %hash;
    my @v = values %hash;
    上面的keys和values是一一对应的
    得到哈希中元素的个数：
        my $count = keys %hash;
        my $count = values %hash;
        if(%hash)
        {   }

    each函数：
        唯一适合使用each的地方
        while(my($key, $value) = each %hash)
        {   }

    foreach函数：
        foreach $key (sort keys %hash)
        {   }

    判断某项哈希元素的真假：
        if($book{$some})
        {   }

    exists函数：
        检查哈希中是否存在某个键，可以使用exists函数
        if(exists $book{"dino"})
        {   }

    delete函数：
        my $person = "betty";
        delete $book{$person}; #撤销$person的借书证
        上面"将undef存入哈希元素"并不相同，在这两种情况下，exists($books{"betty"})会得出相反的结果。在delete之后，键便不会出现在哈希之中，但存入undef后，键却是一定会存在的。

 哈希元素的内插：
    可以将单一哈希元素内插到双引号引起的字符串中。
    foreach $person (sort keys %books)
    {
        if($book{$person})
        {
            print "$person has $books{$person} items\n";
            #但这种方式不支持内插整个hash表
        }
    }

%ENV哈希：
    print “PATH is $ENV{PATH}\n”;

=cut