#!/usr/bin/perl

use warnings;
#use strict強制所有變量必須用my來聲明，
#當試圖使用不是用my聲明的裸單詞(變量或函數(shù)名)時，編譯無法通過
use strict;

#創(chuàng)建簡單的hash表
my %student = (
"name" => "HuiDong",
"id" => 1021400001,
"age" => 25,
);

#對hash表進行操作

#返回hash表中的所有keys
print my @key = keys%student;
#返回hash表中的所有values
print my @values = values%student;

#迭代hash的每一個元素
while ((my $key, my $value) = each %student) {
print "$key=>$value\n";
}

#查看hash表中是否存在某個key
if (exists$student{'name'}) {
print "exist\n";
}

#根據(jù)變量自動創(chuàng)建hash
my $string = "name HuiDong";
my ($name_t, $name) = split(/\s/, $string);

my %dich = ();
$dich{$name_t} = $name;

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

#創(chuàng)建多層hash表并實現(xiàn)訪問
my %students;
%students = (
"student1" => {"name" => "name1",
"id" => 10214,
"mark" => 100,
},
"student2" => {"name" => "name2",
"id" => 10215,
"mark" => 50,
},
);
#訪問方式一
print $students{"student1"}{"name"}."\n";
#訪問方式二
my $studentreport = $students{"student2"};
print ${$studentreport}{"name"}."\n";

#hash表中內嵌數(shù)組
my %game = (
"武器店" => [123,35],
"魔法店" => [85, 196],
);

print $game{"武器店"}->[0]."\t";
print $game{"武器店"}->[1]."\n";

#清空和刪除hash表
undef %student;#清空整個hash表

foreach my $key(keys %student) {
delete $student{$key}; #刪除hash
}

轉載于:https://www.cnblogs.com/bufferfly/archive/2012/04/08/2437603.html

總結

以上是生活随笔為你收集整理的perl学习之哈希的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。