perl - Perl、すべてのハッシュ値を小文字にする方法は？

Question

（1レベルの）ハッシュをすべて小文字の新しいハッシュにコピーする必要があります。

スマートな方法を知っていますか（醜いforeachを避けるためだけに...;-)

score 13 · Accepted Answer

13

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

于 2011-08-10T16:21:25.613 に答える

score 6 · Accepted Answer

これは、次を使用したワンライナーmapです。

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

score 6 · Accepted Answer

楽しみのために、同じものを別の角度から見てみましょう。

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

そして、関数keysとvalues関数は、対応する順序でリストを生成することが保証されています。

score 3 · Accepted Answer

ちょうど別の方法 (ハッシュのコピーが必要であることはわかっているので、それほどクールではありません)。

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

score 2 · Accepted Answer

楽しみの精神で、ややあいまいなeach関数を使用したソリューションを次に示します。（私が以前にそれを使用したことがあるとは思わないでください。）

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

5 に答える 5