■ BBS_4WORLD=　2ｃｈ国際化計画

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,"ＥＲＲＯＲ！","漢字とカタカナしか受け付けていません"); }
}

66 ：動け動けウゴウゴ２ちゃんねる：2008/05/09(金) 18:10:06 ID:zxvkPlab0

とりあえずテスト。思いきり>>57>>59>>61どおりになりますよー。
ごにょごにょしてみようかな。

my @test = qw(
成ル程
♪こ♪う♪す♪る♪と♪ひ♪ら♪が♪な♪も♪つ♪か♪え♪る
其ノ者　青キ衣ヲ纏イテ金色ノ野ニ降リ立ツベシ
);

foreach (@test) {
print $_, "\n\t";
print SenjiCheck($_) ? '可。' : '死ネ。氏ネヂヤナクテ死ネ。', "\n";
}

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/[\x88-\x9F][\x40-\x7F]//g ; #漢字a
$str =~ s/[\xE0-\xFF][\x40-\x7F]//g ; #漢字b
$str =~ s/[\x88-\x9F][\x80-\xFF]//g ; #漢字A
$str =~ s/[\xE0-\xFF][\x80-\xFF]//g ; #漢字B
$str =~ s/[\x81][\x40-\xFF]//g ; #いろいろ記号
$str =~ s/[\x83][\x40-\x9F]//g ; #カタカナ
$str =~ s/http:\/\/[a-zA-Z0-9.,_\/]+//g ; #URL
$str =~ s/<br>//g ;
$str =~ s/ //g ;
$str =~ s/　//g ;

return ($str eq '');
}

67 ：動け動けウゴウゴ２ちゃんねる：2008/05/09(金) 18:13:42 ID:a6ga1XJF0

>>65

>>57
成　　ル　　程
90A2 838B 92F6
　↓
$a =~ s/[\x88-\x9F][\x80-\xFF]//g ; #漢字A
　↓
____ 83__ __F6
　↓
拾えないゴミ残る

68 ：ピロリ：2008/05/09(金) 18:14:39 ID:hr4+oABy0

さぁ　老戦士(sjisの達人)たちよ頑張るんだ !!

69 ：動け動けウゴウゴ２ちゃんねる：2008/05/09(金) 18:17:06 ID:UgnEJUrB0

リ立
がだめっぽい>>61

70 ：動け動けウゴウゴ２ちゃんねる：2008/05/09(金) 18:20:25 ID:zxvkPlab0

SJIS(CP932) なんて Perl/PHP で扱うときにめんどくさいからわかんないんです＞＜

71 ：動け動けウゴウゴ２ちゃんねる：2008/05/09(金) 18:23:50 ID:wIejFLim0

2バイト文字のばかやろー

72 ：動け動けウゴウゴ２ちゃんねる：2008/05/09(金) 18:24:57 ID:a6ga1XJF0

>>69
ここで16進数にしてみた
http://www.ahref.org/cgi/mozicode/

「リ 83 8a」
「立 97 a7」

8a97 なんで、>>67 の理由でダメ

73 ：動け動けウゴウゴ２ちゃんねる：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 ：動け動けウゴウゴ２ちゃんねる：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

いれたー

よさげだぞ

78 ：動け動けウゴウゴ２ちゃんねる：2008/05/09(金) 18:46:24 ID:UgnEJUrB0

貴様等オツ

79 ：動け動けウゴウゴ２ちゃんねる：2008/05/09(金) 19:34:18 ID:zxvkPlab0

あれで解決なのかどうかよくわかってませんが、コメントの訂正。

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

80 ：ピロリ：2008/05/09(金) 19:35:54 ID:hr4+oABy0

はいー

81 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 00:24:35 ID:QNRGf9Ik0

unicodeにしかない旧字体なかったっけ
あと&lloみたいのはやらんの

82 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 00:28:20 ID:5XYND6os0

金はずっとsenjiモードなんですか＞＜

83 ：ピロリ：2008/05/10(土) 04:03:23 ID:g6tFBg8U0

なおしたー

84 ：SUCKS ◆SUCKSagYLU ：2008/05/10(土) 05:37:54 ID:fhJNKnoD0

早朝からお疲れさまだわ

85 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 09:30:14 ID:5XYND6os0

オツー

86 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 10:31:42 ID:GdZdE7bS0

そういえば戦時なら西暦じゃなくて2600年の何とか暦にしてよ
神武天皇がどうのこうのってやつ

87 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 11:34:12 ID:rhA9T2U/0

>>86
http://bubble6.2ch.net/test/read.cgi/senji/1210216992/176-177

88 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 11:52:50 ID:GdZdE7bS0

>>87
ナルホド　アリガトウ

89 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 14:13:33 ID:77Xkajf/0

ったく読みにくいな

90 ：Cooks：2008/05/10(土) 22:38:30 ID:X5eMWOOU0 ?DIA(200524)

senjiを
BBS_YMD_WEEKS=月/月/火/水/木/金/金
に出来ないかな

91 ：ピロリ：2008/05/10(土) 22:42:27 ID:Ofg2+ree0

したー

92 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 22:43:52 ID:5XYND6os0

1 名無シサン＠ヲ腹イッパイ。 2008/05/10(土) 10:36:39 ID:7Bo360GH0
ンァ

2 名無シサン＠ヲ腹イッパイ。 2008/05/10(金) 22:43:02 ID:7Bo360GH0
ナンダ金曜カ


むーん･･･

93 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 23:00:56 ID:+8lGibcL0

金曜ニナッテルヨ
苦情ヲ申シニ来タガ、ココガ原因カ
変更スルナラ、月月火火木金金デハナイノカ？

94 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 23:02:46 ID:EhQHRUbR0

一週間に十日来い だからいいんじゃね

95 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 23:05:53 ID:ZOSfhJQI0

なんというVIP仕様…

96 ：動け動けウゴウゴ２ちゃんねる：2008/05/10(土) 23:49:19 ID:GdZdE7bS0

毎日が平日

97 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 00:17:38 ID:9bx3xicG0

日付の改変を直ちに撤回せよ
↓議論
http://qb5.2ch.net/test/read.cgi/operate/1112293096/804
http://qb5.2ch.net/test/read.cgi/operate/1112438208/441-447n
http://qb5.2ch.net/test/read.cgi/operate/1112438208/599-601n

98 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 00:30:29 ID:oShM5Q4g0

http://qb5.2ch.net/test/read.cgi/operate/1112293096/811
811 名前：ひろゆき＠どうやら管理人 ★[] 投稿日：2005/04/02(土) 14:27:34 ID:???0 ?###
曜日は検索とは無関係だから、
情報価値の点でいくと、どうでもいいような。

99 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 00:33:51 ID:eGdte5pq0

月月金金にすると何が面白いかを教えていただけると

100 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 00:41:09 ID:QGhIROLC0

月月火水木金金も知らんのか

101 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 00:53:36 ID:eGdte5pq0

平成生まれだからわかんなーい

102 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 00:56:37 ID:u+H188qa0

>>100
知らないお子ちゃまは放置で

103 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 01:24:42 ID:tMFPisLW0

というよりぐぐれと言っておけばおｋ

104 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 01:33:25 ID:81ZUWlT9P

URLにハイフンがあるとダメなようだ

206 http://qb5.2ch.net/test/read.cgi/operate/1210091607/90-91 sage 2008/05/10(金) 23:00:10 ID:ie7HvxzM0
コウスレバ貼レルカナ

213 ハデマツ勝ンセマリ乗名 sage New! 2008/05/11(月) 01:27:59 ID:TQkIXILWP
http://qb5.2ch.net/test/read.cgi/operate/1210091607/90

214 ハデマツ勝ンセマリ乗名 sage New! 2008/05/11(月) 01:29:15 ID:TQkIXILWP
成ル程、ハイフンガダメナヤウデアリマス

105 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 01:39:59 ID:Op3c3LRM0

>>104

>>65
$a =~ s/http:\/\/[a-zA-Z0-9.,_\/]+//g ; #URL

↑たしかにハイフンは、ない　~と%と#もないけど。

106 ：73：2008/05/11(日) 01:55:54 ID:sC/CC2SE0

手抜きのツケが。

> s/http:\/\/[a-zA-Z0-9.,_\/]+//g; #URL

s/h?ttp:\/\/[\d\w,.\/#-]+//g; # 2ch内ならこれで足りる？ ttp まではいちおう考慮。
s/h?ttps?:\/\/[\d\w,.\/#;?:@&%=+$.!~*'()-]+//g; # いろいろ考慮。でも手抜き。

URLを装うだけでいろいろできてしまうのは仕方ないのかな。

107 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 01:57:09 ID:sC/CC2SE0

訂正。ドット1個消し忘れ。

> s/h?ttps?:\/\/[\d\w,.\/#;?:@&%=+$.!~*'()-]+//g; # いろいろ考慮。でも手抜き。
s/h?ttps?:\/\/[\d\w,.\/#;?:@&%=+$!~*'()-]+//g; # いろいろ考慮。でも手抜き。

108 ：未承諾広告※ ◆TWARamEjuA ：2008/05/11(日) 02:11:05 ID:kuMiqLHt0

(´-`).｡ｏＯ(昔はこんなにRegExp入れたら負荷かかり卓って怒られたのになぁ♪)

109 ： ◆ula/HMKG4M ：2008/05/11(日) 04:17:24 ID:dcBOgulv0

平成生まれだからわかんなーい

110 ： ◆ula/HMKG4M ：2008/05/11(日) 04:18:45 ID:dcBOgulv0

URLのところは月曜日にでも　改修　改修

111 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 04:34:31 ID:luIXGvPq0

>>101
ググレカス

http://www.google.co.jp/search?hl=ja&q=%E6%9C%88%E6%9C%88%E7%81%AB%E6%B0%B4%E6%9C%A8%E9%87%91%E9%87%91&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=

112 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 09:11:10 ID:BS/qn+Ew0

新設板・板移動情報・8＠運用情報
http://qb5.2ch.net/test/read.cgi/operate/1196842428/311

311 名前：まほら ★[sage] 投稿日：2008/05/11(日) 01:40:50 ID:???0 ?DIA(102030)
>>303さん
>>305　番犬さん
お疲れ様です。bbsmenu/bbsmenu2/bbstableの変更に対応致しました。

どこに入れればよろしいのかがよく分かりませんでしたので、
とりあえずは各カテゴリ最下部に入れさせて頂きましたが、よろしかったでしょうか？
あと、dejima板のbbsmenu名は「出島」の方がよろしかったでしょうか？

113 ： 【senji:1】 ：2008/05/11(日) 09:28:39 ID:eGdte5pq0

>>111
　●　●
　(・∀・)ゞ

114 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 09:47:55 ID:7jEPA7C+0

そんなヤツは戦時板使うなよ。。

115 ： 【senji:1】 ：2008/05/11(日) 09:49:33 ID:eGdte5pq0

　　　　　　ｼｭｯ
　ｼｭｯ　　　ﾊ,,ﾊ　　ｼｭｯ
　ﾊ,,ﾊ 彡（ ﾟωﾟ )
（ ﾟωﾟ )彡ミ（ ﾟωﾟ )　　お断りします
＿(__つ/￣￣￣/＿
　　＼/　 　 　 /

116 ：動け動けウゴウゴ２ちゃんねる：2008/05/11(日) 09:50:54 ID:7jEPA7C+0

まず、この板では下げることから憶えような。坊主。

117 ： 【senji:1】 ：2008/05/11(日) 09:51:47 ID:eGdte5pq0

ごめんごめん

118 ：動け動けウゴウゴ２ちゃんねる：2008/05/12(月) 21:01:45 ID:FEWPtHKx0

http://love6.2ch.net/test/read.cgi/kao/1103031105/73

119 ： [―{}@{}@{}-] 動け動けウゴウゴ２ちゃんねる：2008/10/09(木) 11:34:42 ID:U2MGhlS00

mata