なんかPerlのこと書くの久しぶりな気がする・・・。 ぼへーっとCPANのRSS眺めてたらHash::Extractとかいうが目に付いたのでさっそく触ってみた。 以下概要のまんまだけど例。 use Hash::Extract qw/hash_extract/; my %hash = ( red => 'apple' , blue => 'sky' ); hash_extract( \%hash , my $blue ); print $blue; # sky 要は変数名と同じ名前のハッシュのキーのデータを取得するだけのものです。 これと同じ事をHash::Extract使わずに普通にやる場合、 my $blue = $hash{blue}; my $red = $hash{red}; my $yellow = $hash{yellow}; # もしくは my ($blue,$red,$ye