2004-02-20 ■ Perl my %hoge = ('id'=>'hoge');&moge(\%hoge); exit;sub moge() { my ($hoge) = @_; print $hoge->{'id'}; my @h_keys = keys(%$hoge); } デリファレンスは $hoge : $$hoge @hoge : @$hoge %hoge : %$hoge