Perlでのハッシュのマップ

Question

mapのハッシュ相当はありますか？

鍵をループすることができます。

Answer 1

List::Pairwiseは、その構文を正確に実装すると主張しています。mapp、greppを参照してください。私はそれを使用していない。

また、私は%hashは本当に$deeply->{buried}->{hash}ある場合clumsierに見える認める

%new_hash = map { new_key($_) => new_value($hash{$_}) } keys %hash; 

としてそれを行うことができます。このような場合は$temp = ...; map {...} keys %$tempを使用することをお勧めします。

Answer 2

あなたはこのようにマップを使用することができます。

my $i = 0; 
my %new_hash = map { $i ^= 1 ? new_key($_) : new_val($_) } %hash; 

Answer 3

あなたがこれを行うに私のモジュールList::Genからmapnを使用することができます。

use List::Gen 'mapn'; 

my %new_hash = mapn {new_key($_[0]) => new_value($_[1])} 2 => %old_hash; 

mapnは、それを除いて、それは追加の引数を取り、マップのようなものです、リストを歩く要素の数ブロック内では、@_配列が現在のスライスに設定されます。

Answer 4

ここで何をしようとしているのか本当にわかりません。 「mapのハッシュに相当する」とはどういう意味ですか？あなたはちょうど良いハッシュにmapを使用することができます。キーが必要な場合は、keysを使用してください。例えば$の値は$ _ハッシュ{$ _} "キー％ハッシュです」

@msglist = map { "value of $_ is $hash{$_}" } keys %hash  

が、通常は

は言う";。

だけで結構です

あなたは両方をしたい場合、その後、全体のハッシュを使用しています。

割り当てについては、%new_hash = %old_hashと間違って何ですか？

ディープコピーの問題はありますか？次に、Storable::dcloneを使用します。

キーと値の両方をクロージャで同時に使用しますか？そして、最初のマップでペアの束を作る：

@pairlist = map { [ $_ => $hash{$_} ] } keys %hash 

私はあなたがこれをしたいと思うものの例を参照する必要がありますが、これまでのところ、私はいくつかの大きな古いモジュールを使用しての代わりにゼロ原因を見ることができます基本的なPerl。例えばへ

Answer 5

$ perlの-dを/ dev/null

DB<2> %p = (a=>'b', c=> 'd');             
    DB<5> p Dumper \%p                
$VAR1 = { 
      'c' => 'd', 
      'a' => 'b' 
     }; 

キーと値を逆にします。

DB<6> %q = map { ($p{$_}, $_) } keys %p          
    DB<7> p Dumper \%q                
$VAR1 = { 
      'b' => 'a', 
      'd' => 'c' 
     }; 

Answer 6

私は@eugeneソリューションにコメントを追加できないため、これを追加します。 それはこのように働いた （値がNaNなったことを確認するためにmapでprint $iを追加）私はそれが好き、それは私のために動作しませんでした：

my $i = 0; 
%hash = map { ($i=($i^1)+0) ? new_key($_) : new_val($_) } %hash;