Tie::RefHash perl
なんじゃろと思っていたら、
ハッシュのキーにリファレンスを使うことができるようにするモジュールだった。
1 use strict; 2 3 use Tie::RefHash; 4 5 my %h; 6 7 tie %h, 'Tie::RefHash'; 8 9 %h = ([qw(aa bb cc)] => 'hoge'); 10 11 for my $key (keys %h) { 12 print ref($key)."\n"; 13 for my $v (@{$key}) { 14 print $v."\n"; 15 } 16 }
こんな感じに動いてくれます。
ARRAY
aa
bb
cc
http://search.cpan.org/~nuffin/Catalyst-Plugin-Authentication-0.09/lib/Catalyst/Plugin/Authentication.pm
http://search.cpan.org/~nuffin/Tie-RefHash-1.35/lib/Tie/RefHash.pm
http://fleur.hio.jp/perldoc/mix/lib/Tie/RefHash.html