Perlリストコンテキストをハッシュキーとして

Question

私は最初のキャプチャを取り、それをハッシュのキーとして使用したい変数を持っています。私は解決策を見つけましたが、最適ではないようです。

My $out = $hash{[$var =~ /(^[a-z]+)/]->[0]}; 

リスト - >配列 - >スカラーの方が良い方法があるようです。おそらくlist->スカラーです。私は別の変数に取り込んでキーとして使うこともできますが、私はそれを避けたいと思います。これを行うより良い方法はありますか？

Answer 1

単一のステートメントにすべてを詰め込むする必要がこのような

my ($key) = $var =~ /(^[a-z]+)/; 
my $out = $hash{ $key }; 

が、何かが

my $out; 
$out = $hash{$1} if $var =~ /(^[a-z]+)/; 

または多分

my $out = $var =~ /(^[a-z]+)/ && $hash{$1}; 

Answer 2

配列リファレンスを作成する必要はありません。

my $out = $hash{ ($var =~ m/(^[a-z]+)/)[0] }; 

Answer 3

What'sを大丈夫だろうありません間違っている？

$var =~ /^([a-z]+)/; 
my $out = $hash{$1}; 

複数の一致のために、しかし、単一のもののためにリストコンテキストで=~の出力を使用することが有用ですか？

正規表現が（他の人が示唆しているように）一致しないと思われる場合は、最初にチェックする方が良いでしょう。例えば：

if($var =~ /^([a-z]+)/) { 
    my $out = $hash{$1}; 
    ... 
} 

あなたはワンライナーをしたい場合は、あなたが使用することができます：

my $out = $hash{ ($var =~ /^([a-z]+)/)[0] }; 

正規表現が一致しない場合、これは警告を与えます。 @tinitaによって最初に提案されました。