それ Regexp::Assemble - odz bufferref:ここギコ！: 安易なループは慎むべきですね ref:jnaoyaのはてな日記 - 添削その2 ref:404 Blog Not Found:perl - 勝手に添削^2 - loop control ん？ループ云々を抜きにして、こういうのは Regexp::Assemble の出番じゃないの？添削だから？それともパフォーマンスとか？ use Regexp::Assemble; my %analyze = ( qr/Pattern 1/ => 'Pattern 1', qr/Pattern 2/ => 'Pattern 2', qr/Pattern 3/ => 'Pattern 3', ); my $re = Regexp::Assemble->new; $re->track->add(keys %analyze); while (my $log = $logs->readline)
