@data{@attrs} = @args{@attrs}

14 04 2006 perl Tweet

Perl Best Practicesがおもろいので、良書と噂のこれも読んでみてますヨ。

のp.402で、こんなもんが

my ($class, %args) = @_;
my %data;
@data{@attrs} = @args{@attrs};

わからん ?!

そういえば、オーこれは！と思ってブックマークしてたっけなとか思い出したので探し出してきた。

my %member;
@member{qw(name age)} = qw(takefumi 23);
print Dumper %member;

これやね。