Perl 哈希操作：%hash 与 keys()

在 Perl 中，哈希（Hash）是一种以“键-值”对形式存储数据的结构。%hash 表示一个完整的哈希变量，而 keys() 是一个内置函数，用于提取哈希中所有的键。掌握这两者的配合使用，能让你高效地遍历、检查或处理哈希数据。

理解 %hash 的基本用法

声明一个空哈希：

my %student = ();

赋值键值对时，使用 `$` 符号加花括号，因为每个值是标量： ```perl $student{"张三"} = 85;
$student{"李四"} = 92; $student{"王五"} = 78;

此时 `%student` 包含三个键：“张三”、“李四”、“王五”，对应各自的分数。

**访问**某个值同样使用 `$`：

```perl
print $student{"李四"};  # 输出 92

注意：%hash 表示整个哈希结构，不能直接用于赋值或打印单个元素。

使用 keys() 获取所有键

keys() 函数返回哈希中所有键组成的列表。这个列表可以用于循环、计数或判断。

获取键的数量：

my $count = keys %student;
print "共有 $count 名学生。\n";  # 输出：共有 3 名学生。

这里 keys %student 在标量上下文中返回键的总数。

遍历所有键：

for my $name (keys %student) {
    print "$name 的成绩是 $student{$name}\n";
}

这段代码会依次输出每位学生的姓名和成绩。

常见操作场景

1. 检查某个键是否存在

不要直接用 `if ($hash{"key"})` 判断，因为值可能为 `0` 或空字符串，导致误判。 **正确做法是使用 `exists`**： ```perl if (exists $student{"赵六"}) {
print "赵六的成绩已记录。\n";
} else {
print "赵六不在名单中。\n";
}

### 2. 删除键值对

**使用 `delete` 删除指定键**：

```perl
delete $student{"王五"};
```

删除后，`keys %student` 将不再包含“王五”。

### 3. 清空整个哈希

**直接赋值空列表即可清空**：

```perl
%student = ();
```

此时 `keys %student` 返回空列表，数量为 0。

---

## 注意事项与陷阱

- **`keys()` 返回的顺序是随机的**。Perl 出于安全考虑，从 5.18 版本起默认启用哈希随机化，因此每次运行程序时 `keys %hash` 的顺序可能不同。如果需要固定顺序，必须显式排序：

  ```perl
  for my $name (sort keys %student) {
      print "$name: $student{$name}\n";
  }
  ```

- **在循环中修改哈希需谨慎**。例如，在 `for my $k (keys %h)` 循环体内执行 `delete $h{$k}` 是安全的，因为 `keys()` 已先生成了键的副本。但若在遍历 `%h` 本身时修改（如 `while (($k, $v) = each %h)`），可能导致跳过元素或重复处理。

- **不要混淆 `%hash` 和 `$hash{key}`**：
  - `%hash` 是整个哈希。
  - `$hash{key}` 是单个值（标量）。
  - `@hash{qw(a b)}` 是切片（列表），但这是进阶用法，初学者可暂不涉及。

---

## 实用示例：统计单词出现次数

以下脚本读取一行文本，统计每个单词出现的次数：

```perl
my $text = "apple banana apple cherry banana apple";
my %count = ();

for my $word (split /\s+/, $text) {
    $count{$word}++;
}

for my $word (sort keys %count) {
    print "$word: $count{$word}\n";
}
```

输出结果：

```
apple: 3
banana: 2
cherry: 1
```

这里 `keys %count` 提供了所有唯一单词，用于最终输出。

---

## 性能提示

- `keys %hash` 的时间复杂度是 O(n)，其中 n 是键的数量。对大型哈希频繁调用会影响性能。
- 如果只需检查哈希是否为空，**优先使用 `keys` 在标量上下文**：

  ```perl
  if (keys %big_hash) {
      # 哈希非空
  }
  ```

  这比 `scalar(keys %big_hash) > 0` 更简洁，且 Perl 会优化为只检查是否存在键，而不实际构建完整列表（在较新版本中）。

---

## 对比：keys() 与其他哈希函数

| 函数          | 返回内容                     | 典型用途                     |
| :------------ | :--------------------------- | :--------------------------- |
| `keys %h`     | 所有键的列表                 | 遍历、排序、计数             |
| `values %h`   | 所有值的列表                 | 批量处理值（不关心键）       |
| `each %h`     | 每次返回一个键值对（迭代器） | 内存高效的逐项处理           |
| `exists $h{k}`| 布尔值（键是否存在）         | 安全检查键                   |
| `delete $h{k}`| 被删除的值                   | 移除键值对                   |

注意：`each` 在多层嵌套或异常退出时可能留下内部迭代器状态，导致后续 `each` 或 `keys` 行为异常。一般推荐优先使用 `keys` 遍历。

---

**初始化哈希时明确作用域**：

```perl
{
    my %temp = (a => 1, b => 2);
    # %temp 在此块结束后自动销毁
}
```

避免全局哈希污染命名空间。

**合并两个哈希**：

```perl
my %base = (x => 1, y => 2);
my %extra = (y => 3, z => 4);
my %merged = (%base, %extra);  # %extra 中的 y 会覆盖 %base 的 y
```

此时 `keys %merged` 返回 `x`, `y`, `z`。

---

在 Perl 脚本中，`%hash` 和 `keys()` 的组合是最基础也最强大的哈希操作方式。只要记住：**用 `keys` 拿键，用 `$hash{key}` 取值，用 `exists` 查存在，用 `delete` 删条目**，就能应对绝大多数数据处理需求。