【Web】　掲示板AA撲滅　【Prog】

**nobodyさん** · 03/02/12 15:46

頑張ってAAかどうか判定するソースを書こうじゃないか！

PerlかPHPとか一般的なやつで。

**nobodyさん** · 03/02/12 15:54

>>1
で、取りあえずお前が考えたアルゴリズムを聞きたい。

　 ∩∩
　（゜x゜　）○

1 · 03/02/12 17:25

Perl

/[\s:;]{10,}/
マッチしたらAAっていうのは？

**nobodyさん** · 03/02/12 17:31

>>3
>>2のかわいいむぅﾀﾝが消えないが。

むぅ？

　 ∩∩
　（゜x゜　）○

**nobodyさん** · 03/02/12 22:01

m/(?:\n(?: |　)+[^\n]+){2,}/

**nobodyさん** · 03/02/12 22:27

まず、アスキーアートと日本語の文章の違いとして、
同じ文字やパターンが数多く繰り返されることがあると思うが、どうよ。
そういうところから考えると解けるようなきが汁。

あとは辞書ファイルでやるのが妥当かと……

**nobodyさん** · 03/02/12 23:07

@kigo=("＼","~","∧","Д","д","´","｀","ゝ","⊂","≡","⌒","▼","≧");
foreach(@kigo){
if ($com=~/.*$_.*$_.*$_.*$_/){$com="(AA省略/<a href=\"..\/..\/res.cgi?$two$three$datprint2\">見る</a>)";}
}

**nobodyさん** · 03/02/13 00:20

なんでも、すゝきさん所の次男坊が風邪引いたらしいぞ。

**nobodyさん** · 03/02/13 11:55

>>7
って重そうなんだが、
どれが軽いんだろ

**nobodyさん** · 03/02/13 18:53

多分、そんな風にやりたいなら、、記号リストの中にあるもので、
合計5個以上マッチしたらAAっていうのにするべきだね。

つまり、

my $count = 0;
my $flag;
foreach (@kigo) {
　$count += $com =~ /\Q$_\E/;
　if ($count >= 5) {
　　$flag = 1;
　　last;
　}
}
if ($flag) {
　#AAでした。
}

**nobodyさん** · 03/02/13 21:48

顔文字も消えるよ

**nobodyさん** · 03/02/13 21:58

>>11
その辺は文字数を見ればなんとかなるんじゃないか？

12 · 03/02/13 22:08

もちろんAAだと認識した文字列の文字数だよ
とりあえず顔文字なら普通は改行ははいらないな

【Web】 掲示板AA撲滅 【Prog】

【Web】　掲示板AA撲滅　【Prog】