perl

えーっと，本日のプログラム．
ちょっとアクセスログを改造．


@hogehoge('abc', 'xy', '123');

と定数を定義しておいて，

foreach $uha (@hogehoge){
　if ($hensu =~ /$uha/){
　　$flag = 1;
　　last;
　}
}

$hensu の中に abc xy 123 のどれかがあれば $flag に 1 をセットして次の処理．

いままでは　abc xy 123 を if 構文の中につっこんで，面倒なことをしていたのだった・・・