Perl, как прописать все хеш-значения?

Question

Мне нужно скопировать (одноуровневый) хэш в новый со всеми значениями в нижнем регистре.

Знаете ли вы умный метод (просто чтобы избежать уродливого foreach ...; -)

Answer 1

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

Answer 2

Просто для удовольствия, под другим углом взглянуть на одно и то же:

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

И да, функции keys и values гарантируют для создания их списков в соответствующем порядке, при условии, что вы не изменяете хэш, над которым они работают, между вызовами одного и другого. .

Answer 3

Это один вкладыш, использующий map:

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

Answer 4

Просто по-другому (теперь это не так круто, когда я знаю, что вам нужна копия хэша).

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

Answer 5

В духе веселья, вот решение с использованием несколько неясной функции each.(Не верьте, что я когда-либо использовал это раньше.)

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