Perl雜湊表用法解析

本文和大家重點討論一下Perl雜湊表的概念，Perl語言和其他程式設計語言各有各的特點，這裡和大家分享一下Perl雜湊表的概念，其實Perl雜湊表是一種結構。

Perl雜湊表
Perl雜湊表是一種結構。
key/value.
訪問Perl雜湊表元素
$Perl雜湊表{$some_key}
當給Perl雜湊表選擇名字時，最好這樣思考：Perl雜湊表元素的名字和key之間可以用for來串連。如thefamily_nameforfredisflintstone.

要引用整個Perl雜湊表，使用百分比符號(%)作為首碼。

複製代碼 代碼如下:#!/bin/perl
usewarnings;
usestrict;

my$person;
my%family_name;
$family_name{"fred"}="flintstone";
$family_name{"barney"}="rubble";

foreach$person(qw<barneyfred>){
print"I'veheardof$person$family_name{$person}.\n";
}
my%some_hash=("foo",35,"bar",12.4,25,"hello","wilma",1.72e30,"betty","bye\n");
my@array_array=%some_hash=;
print"@array_array\n";

雜湊賦值方法大箭頭符號(=>)

複製代碼 代碼如下:my%last_name=(
"fred"=>"flintstion",
"dino"=>undef,
"barney"=>"rubble",
"betty"=>"rubble",
);

keys函數會返回此Perl雜湊表的所有keys，values含稅將返回所有的values。如果Perl雜湊表中沒有元素，則此函數將返回空列表。

複製代碼 代碼如下:my@k=keys%last_name;
my@v=values%last_name;
my$count=keys%last_name;#scalar-producing,key/valuepairs

print"thekeyare@k.\n";
print"thevalueare@v.\n";
print"thecountare$count.\n";

each函數

如果想迭代得到Perl雜湊表中的每個元素，一個通常的方法是使用each函數，它將返回key/value對的元素對。當對同一個Perl雜湊表函數進行一次迭代時，將返回下一個key/value對，直到所有的元素均被訪問。

複製代碼 代碼如下:my$key;
my$value;
while(($key,$value)=each%last_name){
#foreach(($key,$value)=each%last_name){
print"$key=>$value.\n";
}

注意兩種迴圈的結果，原因在於兩種迴圈的設計機制不同。複製代碼 代碼如下:foreach$key(sortkeys%last_name){
$value=$last_name{$key};
print"$key=>$value.\n";
print"$key=>$last_name{$key}.\n";
}