戦時設定

戦時板ノ「漢字ト片仮名以外書込不可」ト言フ独自形態ハ、二度ノ改修ヲ経テ、下記ノ設定ト推測サレテヰマス。


 if($FOX->{$GB->{FORM}->{bbs}}->{'BBS_4WORLD'} eq "senji")
 {
  my $a = $GB->{FORM}->{'MESSAGE'} . $GB->{FORM}->{'subject'} ;
  $a =~ s/>>[0-9\-,]+//g ; # >>23とか
  $a =~ s/!vip2:stop://g ; # !vip2:stop:!vip2:heal:
  $a =~ s/!vip2:heal://g ; # !vip2:stop:
  $a =~ s/(\x81[\x40-\xFF]|\x83[\x40-\x9F]|[\x88-\x9F][\x40-\xFF]|[\xE0-\xFF][\x40-\xFF])+//g; #(いろいろ記号|カタカナ|漢字aA|漢字bB)+
  $a =~ s/h?ttps?:\/\/[a-zA-Z0-9.,_\/+-]+//g; # +- ダケ追加。h 抜キト https ニ対応。
  $a =~ s/<br>//g ;
  $a =~ s/ //g ;
  $a =~ s/ //g ;
  if($a ne '') {&DispError2($GB,"ERROR!","漢字とカタカナしか受け付けていません"); }
 }




以下ニ資料トシテ、設立当時カラ改修迄ノ流レヲ抜粋シテ記ス(赤字ハ改修行)。


戦時設定(設立当時)

 if($FOX->{$GB->{FORM}->{bbs}}->{'BBS_4WORLD'} eq "senji")
 {
  my $a = $GB->{FORM}->{'MESSAGE'} . $GB->{FORM}->{'subject'} ;
  $a =~ s/>>[0-9\-,]+//g ; # >>23とか
  $a =~ s/!vip2:stop://g ; # !vip2:stop:!vip2:heal:
  $a =~ s/!vip2:heal://g ; # !vip2:stop:
  $a =~ s/[\x88-\x9F][\x40-\x7F]//g ; #漢字a
  $a =~ s/[\xE0-\xFF][\x40-\x7F]//g ; #漢字b
  $a =~ s/[\x88-\x9F][\x80-\xFF]//g ; #漢字A
  $a =~ s/[\xE0-\xFF][\x80-\xFF]//g ; #漢字B
  $a =~ s/[\x81][\x40-\xFF]//g ; #いろいろ記号
  $a =~ s/[\x83][\x40-\x9F]//g ; #カタカナ
  $a =~ s/http:\/\/[a-zA-Z0-9.,_\/]+//g ; #URL
  $a =~ s/<br>//g ;
  $a =~ s/ //g ;
  $a =~ s/ //g ;
  if($a ne '') {&DispError2($GB,"ERROR!","漢字とカタカナしか受け付けていません"); }
 }

65 :ピロリ [] :2008/05/09(金) 17:49:10 ID:hr4+oABy0
これ

if($FOX->{$GB->{FORM}->{bbs}}->{'BBS_4WORLD'} eq "senji")
{
my $a = $GB->{FORM}->{'MESSAGE'} . $GB->{FORM}->{'subject'} ;
$a =~ s/>>[0-9\-,]+//g ; # >>23とか
$a =~ s/!vip2:stop://g ; # !vip2:stop:!vip2:heal:
$a =~ s/!vip2:heal://g ; # !vip2:stop:
$a =~ s/[\x88-\x9F][\x40-\x7F]//g ; #漢字a
$a =~ s/[\xE0-\xFF][\x40-\x7F]//g ; #漢字b
$a =~ s/[\x88-\x9F][\x80-\xFF]//g ; #漢字A
$a =~ s/[\xE0-\xFF][\x80-\xFF]//g ; #漢字B
$a =~ s/[\x81][\x40-\xFF]//g ; #いろいろ記号
$a =~ s/[\x83][\x40-\x9F]//g ; #カタカナ
$a =~ s/http:\/\/[a-zA-Z0-9.,_\/]+//g ; #URL
$a =~ s/<br>//g ;
$a =~ s/ //g ;
$a =~ s/ //g ;
if($a ne '') {&DispError2($GB,"ERROR!","漢字とカタカナしか受け付けていません"); }
}

(参照:http://qb5.2ch.net/test/read.cgi/operate/1210091607/65)

但シ、特定文字ノ連続デ書込不可、記号ヲ挟ムト検閲回避等、正規表現ノ不具合ガ露呈スル。

57 :動け動けウゴウゴ2ちゃんねる [sage] :2008/05/08(木) 23:38:31 ID:G7E9wU+r0
成ル→成功
程ルナ→成功
成程→成功

成ル程→カキコ不可

わかんないんです><

61 :動け動けウゴウゴ2ちゃんねる [] :2008/05/09(金) 16:42:47 ID:UgnEJUrB0
其ノ者 青キ衣ヲ纏イテ金色ノ野ニ降リ立ツベシ

バラバラにしないと書けなーい

136 :名無シサン@ヲ腹イッパイ。 [] :2008/05/08(木) 22:03:20 ID:yYtYaO8XO
音符♪の直後♪に平仮名♪が書♪け♪る♪の♪は何故?
理屈♪が知♪り♪た♪い。

(参照:http://qb5.2ch.net/test/read.cgi/operate/1210091607/57,61)
(参照:http://gimpo.2ch.net/test/read.cgi/senji/1210216992/136)

不具合ノ指摘ヲ受ケ、正規表現ノ改修ヲ実行。


戦時設定・改一(未公開ノ為、推測)

 if($FOX->{$GB->{FORM}->{bbs}}->{'BBS_4WORLD'} eq "senji")
 {
  my $a = $GB->{FORM}->{'MESSAGE'} . $GB->{FORM}->{'subject'} ;
  $a =~ s/>>[0-9\-,]+//g ; # >>23とか
  $a =~ s/!vip2:stop://g ; # !vip2:stop:!vip2:heal:
  $a =~ s/!vip2:heal://g ; # !vip2:stop:
  $a =~ s/(\x81[\x40-\xFF]|\x83[\x40-\x9F]|[\x88-\x9F][\x40-\xFF]|[\xE0-\xFF][\x40-\xFF])+//g; #(いろいろ記号|カタカナ|漢字aA|漢字bB)+
  $a =~ s/http:\/\/[a-zA-Z0-9.,_\/]+//g ; #URL
  $a =~ s/<br>//g ;
  $a =~ s/ //g ;
  $a =~ s/ //g ;
  if($a ne '') {&DispError2($GB,"ERROR!","漢字とカタカナしか受け付けていません"); }
 }

73 :動け動けウゴウゴ2ちゃんねる [sage] :2008/05/09(金) 18:33:11 ID:zxvkPlab0
手抜き。

sub SenjiCheck {
my $str = shift;
$str =~ s/>>[0-9\-,]+//g ; # >>23とか
$str =~ s/!vip2:stop://g ; # !vip2:stop:!vip2:heal:
$str =~ s/!vip2:heal://g ; # !vip2:stop:
# 順繰りにやるから悲しいことが起きるのです。
$str =~ s/(\x81[\x40-\xFF]|\x83[\x40-\x9F]|[\x88-\x9F][\x40-\xFF]|[\xE0-\xFF][\x40-\xFF])+//g; #(カタカナ|いろいろ記号|漢字aA|漢字bB)+
$str =~ s/http:\/\/[a-zA-Z0-9.,_\/]+//g; #URL
$str =~ s/<br>//g;
$str =~ s/ //g;
$str =~ s/ //g;

return ($str eq '');
}

>>57>>59>>61>>69のクリアに限り、確認済み。

74 :ピロリ [] :2008/05/09(金) 18:34:21 ID:hr4+oABy0
$str =~ s/(\x81[\x40-\xFF]|\x83[\x40-\x9F]|[\x88-\x9F][\x40-\xFF]|[\xE0-\xFF][\x40-\xFF])+//g; #(カタカナ|いろいろ記号|漢字aA|漢字bB)+

ここだけ変えればいいの?

75 :動け動けウゴウゴ2ちゃんねる [sage] :2008/05/09(金) 18:34:58 ID:zxvkPlab0
はい、その予定です。

76 :ピロリ [] :2008/05/09(金) 18:35:19 ID:hr4+oABy0
やってこよう

77 :ピロリ [] :2008/05/09(金) 18:43:02 ID:hr4+oABy0
いれたー

よさげだぞ

79 :動け動けウゴウゴ2ちゃんねる [sage] :2008/05/09(金) 19:34:18 ID:zxvkPlab0
あれで解決なのかどうかよくわかってませんが、コメントの訂正。

× #(カタカナ|いろいろ記号|漢字aA|漢字bB)+
○ #(いろいろ記号|カタカナ|漢字aA|漢字bB)+

80 :ピロリ [] :2008/05/09(金) 19:35:54 ID:hr4+oABy0
はいー

(参照:http://qb5.2ch.net/test/read.cgi/operate/1210091607/73-77,79-80)

上記改修デ正規表現ノ不具合ハ解消。
其ノ後、戦時板住人ガ雑談ノ流レデ戦時設定ノ改修ヲ求メ、電子住所ノ一部ガ規制緩和サレル。


戦時設定・改二(未公開ノ為、推測)

 if($FOX->{$GB->{FORM}->{bbs}}->{'BBS_4WORLD'} eq "senji")
 {
  my $a = $GB->{FORM}->{'MESSAGE'} . $GB->{FORM}->{'subject'} ;
  $a =~ s/>>[0-9\-,]+//g ; # >>23とか
  $a =~ s/!vip2:stop://g ; # !vip2:stop:!vip2:heal:
  $a =~ s/!vip2:heal://g ; # !vip2:stop:
  $a =~ s/(\x81[\x40-\xFF]|\x83[\x40-\x9F]|[\x88-\x9F][\x40-\xFF]|[\xE0-\xFF][\x40-\xFF])+//g; #(いろいろ記号|カタカナ|漢字aA|漢字bB)+
  $a =~ s/h?ttps?:\/\/[a-zA-Z0-9.,_\/+-]+//g; # +- ダケ追加。h 抜キト https ニ対応。
  $a =~ s/<br>//g ;
  $a =~ s/ //g ;
  $a =~ s/ //g ;
  if($a ne '') {&DispError2($GB,"ERROR!","漢字とカタカナしか受け付けていません"); }
 }

480 :nobodyさん [sage] :2008/09/15(月) 03:09:25 ID:rhcPu2AG0
楽しむのはいいけど「とほほ」の時代じゃないと思うんですよね。

484 :ピロリ [sage] :2008/09/15(月) 03:10:22 ID:wN0J1cvz0
>>480
ぐぐるの簡単だし
あんまり難しいのはわかんないし
Perlよくしらないし

497 :動け動けウゴウゴ2ちゃんねる [sage] :2008/09/15(月) 03:13:05 ID:rhcPu2AG0
>>484
3行とも自分と一緒なんですけどね。ただ「とほほ」は古くないですかと。
戦時板のURL規制が変わらないのはその「よくしらない」のしわざなのかな。

502 :ツ督ョツつッツ督ョツつッツウツゴツウツゴツ2ツつソツづ。ツづアツづ仰づゥ [sage] :2008/09/15(月) 03:15:37 ID:liQKM++b0
>>497
あー、戦時板のURLで記号類が使えないのはタマに困るなぁ。

511 :名無シサン@ヲ腹イッパイ。 [sage] :2008/09/15(月) 03:19:02 ID:rhcPu2AG0
>>502
現: s/http:\/\/[a-zA-Z0-9.,_\/]+//g; #URL
新: s/h?ttps?:\/\/[a-zA-Z0-9.,_\/+-]+//g; # +- ダケ追加。h 抜キト https ニ対応。

クエリ投ゲサセロトハ言ハナイノデコンナモンデイインデスケドネ。

525 :ピロリ [sage] :2008/09/15(月) 03:23:58 ID:wN0J1cvz0
>>511

したー
反映をまっててね

(参照:http://qb5.2ch.net/test/read.cgi/operate/1221391423/480,484,497,502,511,518,525)

現在ハ、戦時板自治スレニテ、電子住所ノ表記ヲ更ニ拡張スベキカ議題ニ上ツテヰル。


タグ:

+ タグ編集
  • タグ:

このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー利用規約 が適用されます。

最終更新:2010年02月24日 16:25
ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。