Perl のハッシュリファレンスのスライスの書き方
Perl のハッシュリファレンスのスライスの書き方が分からなくてはまったので、やり方をメモしておく。
普通のハッシュ %foo のスライス
% perl -le 'my %h = (a => 1, b => 2, c => 3); print @h{qw/a c/}'
ハッシュリファレンスの場合
% perl -le 'my %h = (a => 1, b => 2, c => 3); my $ref = \%h; print @$ref{qw/a c/}'
こうではないので注意!(自分はこれではまった)
% perl -le 'my %h = (a => 1, b => 2, c => 3); my $ref = \%h; print @$ref->{qw/a c/}'