perl

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


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

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

foreach $uha (@hogehoge){ 　if ($hensu =~ /$uha/){ 　　$flag = 1; 　　last; 　} }$hensu の中に abc xy 123 のどれかがあれば $flag に 1 をセットして次の処理．

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