[perl][hash][データ][追加]

perlで配列からHashにする場合わざとらしくやるとこんな感じだけど、

use strict;
use warnings;

my @hoge = (0..1);

my %hash = (
   aaaa => $hoge[0],
   bbbb => $hoge[1],
);

なれてくると、こうなります。

use strict;
use warnings;

my %hash;
@hash { qw/aaaa bbbb/ } = (0..1);

結果

$VAR1 = {
          'aaaa' => 0,
          'bbbb' => 1
        };

度忘れしたので、メモをしつつ変態だと思った。