5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

CGIについての質問なのですが

1 :名無しさん@1周年:2000/05/21(日) 04:51
あるところで掲示板のコメントを制限するものがありました。
if ($FORM{'comment'} =~ /$siyoufuka/) { &error('この言葉は使用できないです'); }
とありまして、CGIの先頭にあった設定部分には
$siyoufuka = "";
とありました。
””の間に言葉を入れればその言葉は使用できなくなりましたが、2語以上
指定するにはどうすればいいのでしょうか?(ただ2個以上書いても効果がありませんでした)
だれか知っておられたらお願いいたします。




2 :名無しさん@1周年:2000/05/21(日) 04:53
http://tako.2ch.net/perl/index2.html


3 :名無しさん@1周年:2000/05/21(日) 04:57
CGIについての質問ですね。
「CGI、Perl、レンタルサーバ」板へおいでませ。
http://tako.2ch.net/perl/index2.html

4 :名無しさん@1周年:2000/05/21(日) 04:58
$siyoufuka[0] = "fuck";
$siyoufuka[1] = "suck";
$siyoufuka[2] = "cock";
$siyoufuka[3] = "anal";

foreach (@siyoufuka) {
if($FORM{'comment'} =~ /$_/) { &error('この言葉は使用できないです');}
}


5 :test:2000/05/21(日) 04:58
$siyoufuka[0] = "fuck";
$siyoufuka[1] = "suck";
$siyoufuka[2] = "cock";
$siyoufuka[3] = "anal";

foreach (@siyoufuka) {
if($FORM{'comment'} =~ /$_/) { &error('この言葉は使用できないです');}
}


6 :お役立ちスレッド:2000/05/21(日) 05:02
>>>>>CGI改造工房<<<<< 投稿日:2000/05/15(月) 15:07
http://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869

Perl で素直に表示されない漢字 投稿日:2000/05/19(金) 21:09
http://tako.2ch.net/test/read.cgi?bbs=perl&key=958738148

7 :名無しさん@1周年:2000/05/21(日) 05:09
「使用できないです」 >> 「使用できません」
いや、最近すげー気になる言い回しなんでつい。うちの新人がこういう
言葉遣いでむかつくんだよな。


8 :名無しさん@1周年:2000/05/21(日) 05:16
$siyoufuka = '(AAA|BBB|CCC)'
if ($FORM{'comment'} =~ /$siyoufuka/) { &error('この言葉は使用できないです'); }


9 :名無しさん@1周年:2000/05/21(日) 05:27
ありがとうございます。
解決しました。

3 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)