また少しずつ書き足したり削ったり。List::MoreUtilsのanyだけ使いたかったので、useする代わりにコピペ。ただし、ちょっとだけ弄ってみた。 sub any (&@) { my $f = shift; return if !@_; foreach (@_) { return 1 if $f->(); } return 0; } オリジナルは…