Perl 中哈希的常用函数有哪些 (如：keys, values, each, delete)？

推荐答案

在 Perl 中，哈希（Hash）是一种常用的数据结构，用于存储键值对。以下是 Perl 中常用的哈希函数：

• keys %hash：返回哈希中所有键的列表。
• values %hash：返回哈希中所有值的列表。
• each %hash：返回哈希中的下一个键值对，通常用于迭代。
• delete $hash{key}：删除哈希中指定键的键值对。
• exists $hash{key}：检查哈希中是否存在指定的键。
• defined $hash{key}：检查哈希中指定键的值是否已定义。

本题详细解读

keys %hash

keys 函数返回哈希中所有键的列表。例如：

my %hash = ('a' => 1, 'b' => 2, 'c' => 3);
my @keys = keys %hash;  # @keys 包含 ('a', 'b', 'c')

values %hash

values 函数返回哈希中所有值的列表。例如：

my %hash = ('a' => 1, 'b' => 2, 'c' => 3);
my @values = values %hash;  # @values 包含 (1, 2, 3)

each %hash

each 函数用于迭代哈希中的键值对。每次调用 each 都会返回下一个键值对。例如：

my %hash = ('a' => 1, 'b' => 2, 'c' => 3);
while (my ($key, $value) = each %hash) {
    print "$key => $value\n";
}

输出：

a => 1
b => 2
c => 3

delete $hash{key}

delete 函数用于删除哈希中指定键的键值对。例如：

my %hash = ('a' => 1, 'b' => 2, 'c' => 3);
delete $hash{'b'};  # 删除键 'b'
# 现在 %hash 包含 ('a' => 1, 'c' => 3)

exists $hash{key}

exists 函数用于检查哈希中是否存在指定的键。例如：

my %hash = ('a' => 1, 'b' => 2, 'c' => 3);
if (exists $hash{'b'}) {
    print "Key 'b' exists\n";
}

defined $hash{key}

defined 函数用于检查哈希中指定键的值是否已定义。例如：

my %hash = ('a' => 1, 'b' => undef, 'c' => 3);
if (defined $hash{'b'}) {
    print "Value for key 'b' is defined\n";
} else {
    print "Value for key 'b' is not defined\n";
}