メモ use Sort::Key qw(keysort nkeysort ikeysort); @by_name = keysort { "$_->{surname} $_->{name}" } @people; @by_age = nkeysort { $_->{age} } @people; @by_sons = ikeysort { $_->{sons} } @people; http://search.cpan.org/~salva/Sort-Key-1.19/…

XML::RSSの高速版。こんな感じで使う。 use XML::RSS::LibXML; my $rss = XML::RSS::LibXML->new; $rss->parsefile($file); print "channel: $rss->{channel}->{title}\n"; foreach my $item (@{ $rss->{items} }) { print " item: $item->{title} ($item->{…