新機能要望スレ

385 ：7M. ◆7M./4Uw. ：2003/02/10 20:54 ID:???

if(-e "./info/ngword.cgi"){
open (NG,"./info/ngword.cgi");
foreach (<NG>){
chop;
return (101,"") if ($FORMINFO{'MESSAGE'} =~ /\Q$_\E/);#
}
close(NG);
}

ためしにこれに置き換えてみて、エラーが出るかためしてみてくらはい。。。