Perl，如何将所有哈希值小写？

Question

我需要将（一级）哈希复制到新哈希，所有值均小写。

你知道一个聪明的方法吗（只是为了避免丑陋的foreach...;-）

Answer 1

my %new = map { $_ => lc $old{$_} } keys %old;

Answer 2

这是使用 map 的单行：

my %newHash = map { $_ => lc $existingHash{$_} } keys %existingHash;

Answer 3

只是为了好玩，用不同的角度来看待同一件事：

my %new_hash;
@new_hash{keys %old_hash} = map lc, values %old_hash;

是的，keys 和 values 函数是 保证 按相应的顺序生成它们的列表，前提是您在调用一个和另一个之间不修改它们正在处理的哈希值。

Answer 4

只是另一种方式（现在我知道你想要哈希的副本，这不太酷）。

my %new = %old;
$_ = lc for values %new;

Answer 5

本着有趣的精神，这里有一个使用有点晦涩的 each 函数的解决方案。 （别相信我以前用过它。）

$new{$key} = lc $val while ($key,$val) = each %old;