Perl 中如何获取哈希的键和值？

推荐答案

在 Perl 中，可以使用 keys 和 values 函数来分别获取哈希的键和值。此外，还可以使用 each 函数来同时获取键值对。

// www.javascriptcn.com code example
my %hash = (
    name  => 'Alice',
    age   => 30,
    city  => 'New York'
);

# 获取所有键
my @keys = keys %hash;

# 获取所有值
my @values = values %hash;

# 同时获取键值对
while (my ($key, $value) = each %hash) {
    print "$key => $value\n";
}

本题详细解读

1. 使用 keys 函数获取哈希的键

keys 函数返回哈希中所有的键，返回的结果是一个数组。你可以将这个数组存储在变量中，或者直接遍历它。

my @keys = keys %hash;

2. 使用 values 函数获取哈希的值

values 函数返回哈希中所有的值，返回的结果也是一个数组。你可以将这个数组存储在变量中，或者直接遍历它。

my @values = values %hash;

3. 使用 each 函数同时获取键值对

each 函数在每次调用时返回哈希中的一个键值对。它通常用于 while 循环中，以便遍历整个哈希。

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

4. 注意事项

• keys 和 values 函数返回的数组顺序是不确定的，因为哈希的内部存储是无序的。
• each 函数在遍历哈希时会维护一个内部指针，因此在遍历过程中修改哈希可能会导致不可预期的行为。
• 如果你需要有序的键或值，可以使用 sort 函数对 keys 或 values 返回的数组进行排序。

my @sorted_keys = sort keys %hash;
my @sorted_values = sort values %hash;