perl hash 常见用法

perl hash 常见用法

基本用法

# 初始化 %h为空数组

%h = {};

# 用数组初始化%h为 a=>1, b=>2

%h = ('a', 1, 'b', 2);

# 意义同上，只是另一种更形象化的写法。

%h = ('a'=>1, 'b'=>2);

.

得到hash的所有键值

# 得到所有keys，顺序取决于hash函数，或者说是乱序

@all_keys = keys %h;

# 所有键值，是按hash的值从大往小排列的。值的比较是数字比较(比如说，10>9)

@all_keys = sort{$h{$b}<=>$h{$a}} (keys %h);

# 所有键值，是按hash的值从小往大排列的。值的比较是数字比较

@all_keys = sort{$h{$a}<=>$h{$b}} (keys %h);

# 所有键值，是按hash的值从小往大排列的。值的比较是字符串比较

#（比如说，‘10’ < ‘9’）

@all_keys = sort{$h{$a} cmp $h{$b}} (keys %h);

判断hash是否包含key

exists($h{$key});

Hash的长度

想要知道一个hash有多少<key, value>，常见的方法是得到包含所有键值的数组。这个数组的长度就是hash的长度:<

遍历一个hash中所有的<key, value>

.while (my ($k, $v) = each %h) {

print "$k ---> $v/n";

}

Reference

$h_ref = /%h; # 获得一个hash的reference

%aHash = %{$h_ref};# 把hash reference当成hash用

$value = $h_ref->{akey} # 这个和%h{akey}是一样的

实例：

有一份用户名列表，存储了 10000 个用户名，没有重复项；

还有一份黑名单列表，存储了 2000 个用户名，格式与用户名列表相同；

现在需要从用户名列表中删除处在黑名单里的用户名，要求用尽量快的时间处理。

#!/usr/bin/perl

for(my $i = 0; $i < @arrayN; ++$i)

{

for (my $j = 0; $j < @arrayM; ++$j)

{

if ($arrayN[$i] eq $arrayM[$j])

{

$arrayM[$j] = undef;

}

}

}

两层循环的话要执行10000*2000次

#!/usr/bin/perl

my %arrayHash;

for(my $i = 0; $i < @arrayN; ++$i)

{

$arrayHash{$arrayN[$i]} = 1;

}

for(my $i = 0; $i < @arrayM; ++$i)

{

if ($arrayHash{$arrayM[$i]})

{

$arrayM[$i] = undef;

}

}

现在只需执行10000+2000次