Perlのgrepが返すリストへの参照を取得するには？

Question

grep関数を使用して値のリストをフィルタリングし、フィルタリングされたリストへの参照をハッシュに格納したいと考えています。私は、%$stuffハッシュであることをしようとすると、

のみ

my $allValues = [ 
    'a', 
    'unwanted value', 
    'b', 
    'c', 
]; 

$stuff = { 
    'values' => grep { $_ ne 'unwanted value' } @$allValues 
}; 

：：私は後だことのようなものである

 
$VAR1 = { 
      'b' => 'c', 
      'values' => 'a' 
     }; 

ているので、私の代わりに無名ハッシュ作成のコードを修正する方法はありますget：

 
$VAR1 = { 
      'values' => [ 
         'a', 
         'b', 
         'c' 
         ] 
     }; 

ローカル変数を作成したり、サブルーチン（つまり、すべてインライン）を呼び出してはいけませんか？

Answer 1

はしてみてください：

$stuff = { 
    'values' => [ grep { $_ ne 'unwanted value' } @$allValues ] 
};