Perl 哈希遍历97

哈希是 Perl 中强大的数据结构，可存储键值对。遍历哈希是很常见的操作，本文将详细介绍在 Perl 中遍历哈希的各种方法。

each() 方法

最常用的遍历哈希的方法是使用 each() 方法。它返回一个键值对列表，其中每个元素是一个元组。以下是如何使用 each() 方法：
my %hash = (
"name" => "John Doe",
"age" => 30,
"city" => "New York"
);
foreach my $key_value_pair (%hash) {
my ($key, $value) = @$key_value_pair;
print "$key => $value";
}

输出：
name => John Doe
age => 30
city => New York

keys() 和 values() 方法

您可以使用 keys() 和 values() 方法分别获取哈希的键和值列表。然后，您可以使用 foreach 循环遍历这些列表。
foreach my $key (@{keys %hash}) {
print "$key => %{$hash{$key}}";
}
foreach my $value (@{values %hash}) {
print "$value";
}

输出：
name => John Doe
age => 30
city => New York
John Doe
30
New York

map() 方法

map() 方法可应用给定块到哈希的每个键或值，并返回一个新列表。以下是如何使用 map() 方法遍历哈希的键：
my @keys = map { $_ } keys %hash;

要遍历哈希的值，可以使用匿名子函数：
my @values = map { $hash{$_} } keys %hash;

sort() 方法

sort() 方法可对哈希的键或值进行排序。要对键进行排序，可以使用以下代码：
my @sorted_keys = sort keys %hash;

要对值进行排序，可以使用匿名子函数：
my @sorted_values = sort { $hash{$a} $hash{$b} } keys %hash;

自定义迭代器

您还可以创建自己的自定义迭代器来遍历哈希。以下是如何实现一个迭代器，以按插入顺序遍历键值对：
package Hash::Iterator;
sub new {
my ($class, %hash) = @_;
my $self = bless {
%hash => \%hash,
index => -1,
}, $class;
return $self;
}
sub next {
my ($self) = @_;
$self->{index}++;
return (keys %{$self->{hash}})[$self->{index}] if $self->{index} < scalar keys %{$self->{hash}};
return;
}
sub each {
my ($self) = @_;
while (my $key = &next($self)) {
yield $key, $self->{hash}{$key};
}
}

要使用自定义迭代器，您可以使用以下代码：
my %hash = (
"name" => "John Doe",
"age" => 30,
"city" => "New York"
);
my $iterator = Hash::Iterator->new(%hash);
while (my ($key, $value) = $iterator->each()) {
print "$key => $value";
}

输出：
name => John Doe
age => 30
city => New York

遍历哈希是 Perl 中一项常见且重要的操作。本文介绍了多种遍历哈希的方法，包括 each()、keys()/values()、map()、sort() 方法以及自定义迭代器。根据您的具体需求，选择最合适的方法至关重要。

2024-12-09

上一篇：Perl 数组的打印方法：从入门到高级

下一篇：Perl 连接字符串