Perlで配列リファレンスからエレガントにハッシュを作成する方法はありますか？

Question

私は設定ファイルから読み込んだリストを含むハッシュを作成する、より洗練された方法を探しています。ここに私のコードです：

read_config($config_file => my %config); 

my $extension_list_reference = $config{extensions}{ext}; 

my @ext; 

# Store each item of the list into an array 

for my $i (0 .. (@$extension_list_reference - 1)) { 
    $ext[$i] = $extension_list_reference->[$i]; 
} 

# Create hash with the array elements as the keys 

foreach my $entry (@ext) { 
    $extensions{$entry} = "include"; 
} 

ありがとう。

Answer 1

マップを使用してみてください：私はあなたの問題を理解していれば、これはあなたが1行でそれを行う方法です

my %extensions = map { $_ => "include" } @{ $config{extensions}{ext} }; 

Answer 2

my %hash = map { $_ => 'include' } @list;

Answer 3

： http://perldoc.perl.org/functions/map.html

はここにあなたの新しいコードがどのように見えるかです：

@extensions{@$extension_list_reference} =(); 

注：ハッシュの各値は空ですが、あなたはまだキーが機能を使用して、ハッシュ内に存在するかどうかを確認することができ、このように、の存在：

if(exists $extensions{$some_key}) {... 

P.S.何らかの理由であなたが本当にそれらの文字列 'を含む' を必要とする場合の値として、あなたも、それらを持つことができます。

@extensions{@$extension_list_reference} = ('include') x @$extension_list_reference; 

Answer 4

この方法：

read_config($config_file => my %config); 
%extensions = map +($_ => "include"), @{$config{extensions}{ext}}; 

またはこのよう：

read_config($config_file => my %config); 
@extensions{@{$config{extensions}{ext}}} = ("include") x @{$config{extensions}{ext}};