08/05/09 17:49:10 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:動け動けウゴウゴ２ちゃんねる
08/05/09 18:10:06 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:動け動けウゴウゴ２ちゃんねる
08/05/09 18:13:42 a6ga1XJF0
>>65
>>57
成 ル 程
90A2 838B 92F6
↓
$a =~ s/[\x88-\x9F][\x80-\xFF]//g ; #漢字A
↓
____ 83__ __F6
↓
拾えないゴミ残る
68:ピロリ
08/05/09 18:14:39 hr4+oABy0
さぁ 老戦士(sjisの達人)たちよ頑張るんだ !!
69:動け動けウゴウゴ２ちゃんねる
08/05/09 18:17:06 UgnEJUrB0
リ立
がだめっぽい>>61
70:動け動けウゴウゴ２ちゃんねる
08/05/09 18:20:25 zxvkPlab0
SJIS(CP932) なんて Perl/PHP で扱うときにめんどくさいからわかんないんです＞＜
71:動け動けウゴウゴ２ちゃんねる
08/05/09 18:23:50 wIejFLim0
2バイト文字のばかやろー
72:動け動けウゴウゴ２ちゃんねる
08/05/09 18:24:57 a6ga1XJF0
>>69
ここで16進数にしてみた
URLﾘﾝｸ(www.ahref.org)
「リ 83 8a」
「立 97 a7」
8a97 なんで、>>67 の理由でダメ
73:動け動けウゴウゴ２ちゃんねる
08/05/09 18:33:11 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:ピロリ
08/05/09 18:34:21 hr4+oABy0
$str =~ s/(\x81[\x40-\xFF]|\x83[\x40-\x9F]|[\x88-\x9F][\x40-\xFF]|[\xE0-\xFF][\x40-\xFF])+//g; #(カタカナ|いろいろ記号|漢字aA|漢字bB)+
ここだけ変えればいいの?
75:動け動けウゴウゴ２ちゃんねる
08/05/09 18:34:58 zxvkPlab0
はい、その予定です。
76:ピロリ
08/05/09 18:35:19 hr4+oABy0
やってこよう
77:ピロリ
08/05/09 18:43:02 hr4+oABy0
いれたー
よさげだぞ
78:動け動けウゴウゴ２ちゃんねる
08/05/09 18:46:24 UgnEJUrB0
貴様等オツ
79:動け動けウゴウゴ２ちゃんねる
08/05/09 19:34:18 zxvkPlab0
あれで解決なのかどうかよくわかってませんが、コメントの訂正。
× #(カタカナ|いろいろ記号|漢字aA|漢字bB)+
○ #(いろいろ記号|カタカナ|漢字aA|漢字bB)+
80:ピロリ
08/05/09 19:35:54 hr4+oABy0
はいー
81:動け動けウゴウゴ２ちゃんねる
08/05/10 00:24:35 QNRGf9Ik0
unicodeにしかない旧字体なかったっけ
あと&lloみたいのはやらんの
82:動け動けウゴウゴ２ちゃんねる
08/05/10 00:28:20 5XYND6os0
金はずっとsenjiモードなんですか＞＜
83:ピロリ
08/05/10 04:03:23 g6tFBg8U0
なおしたー
84:SUCKS ◆SUCKSagYLU
08/05/10 05:37:54 fhJNKnoD0
早朝からお疲れさまだわ
85:動け動けウゴウゴ２ちゃんねる
08/05/10 09:30:14 5XYND6os0
オツー
86:動け動けウゴウゴ２ちゃんねる
08/05/10 10:31:42 GdZdE7bS0
そういえば戦時なら西暦じゃなくて2600年の何とか暦にしてよ
神武天皇がどうのこうのってやつ
87:動け動けウゴウゴ２ちゃんねる
08/05/10 11:34:12 rhA9T2U/0
>>86
ｽﾚﾘﾝｸ(senji板:176-177番)
88:動け動けウゴウゴ２ちゃんねる
08/05/10 11:52:50 GdZdE7bS0
>>87
ナルホド アリガトウ
89:動け動けウゴウゴ２ちゃんねる
08/05/10 14:13:33 77Xkajf/0
ったく読みにくいな
90:Cooks
08/05/10 22:38:30 X5eMWOOU0 BE:614955555-DIA(200524)
senjiを
BBS_YMD_WEEKS=月/月/火/水/木/金/金
に出来ないかな
91:ピロリ
08/05/10 22:42:27 Ofg2+ree0
したー
92:動け動けウゴウゴ２ちゃんねる
08/05/10 22:43:52 5XYND6os0
1 名無シサン＠ヲ腹イッパイ。 2008/05/10(土) 10:36:39 ID:7Bo360GH0
ンァ
2 名無シサン＠ヲ腹イッパイ。 2008/05/10(金) 22:43:02 ID:7Bo360GH0
ナンダ金曜カ
むーん･･･
93:動け動けウゴウゴ２ちゃんねる
08/05/10 23:00:56 +8lGibcL0
金曜ニナッテルヨ
苦情ヲ申シニ来タガ、ココガ原因カ
変更スルナラ、月月火火木金金デハナイノカ？
94:動け動けウゴウゴ２ちゃんねる
08/05/10 23:02:46 EhQHRUbR0
一週間に十日来い だからいいんじゃね
95:動け動けウゴウゴ２ちゃんねる
08/05/10 23:05:53 ZOSfhJQI0
なんというVIP仕様…
96:動け動けウゴウゴ２ちゃんねる
08/05/10 23:49:19 GdZdE7bS0
毎日が平日
97:動け動けウゴウゴ２ちゃんねる
08/05/11 00:17:38 9bx3xicG0
日付の改変を直ちに撤回せよ
↓議論
ｽﾚﾘﾝｸ(operate板:804番)
ｽﾚﾘﾝｸ(operate板:441-447番)n
ｽﾚﾘﾝｸ(operate板:599-601番)n
98:動け動けウゴウゴ２ちゃんねる
08/05/11 00:30:29 oShM5Q4g0
ｽﾚﾘﾝｸ(operate板:811番)
811 名前：ひろゆき＠どうやら管理人 ★[] 投稿日：2005/04/02(土) 14:27:34 ID:???0 ?###
曜日は検索とは無関係だから、
情報価値の点でいくと、どうでもいいような。
99:動け動けウゴウゴ２ちゃんねる
08/05/11 00:33:51 eGdte5pq0
月月金金にすると何が面白いかを教えていただけると
100:動け動けウゴウゴ２ちゃんねる
08/05/11 00:41:09 QGhIROLC0
月月火水木金金も知らんのか
101:動け動けウゴウゴ２ちゃんねる
08/05/11 00:53:36 eGdte5pq0
平成生まれだからわかんなーい
102:動け動けウゴウゴ２ちゃんねる
08/05/11 00:56:37 u+H188qa0
>>100
知らないお子ちゃまは放置で
103:動け動けウゴウゴ２ちゃんねる
08/05/11 01:24:42 tMFPisLW0
というよりぐぐれと言っておけばおｋ
104:動け動けウゴウゴ２ちゃんねる
08/05/11 01:33:25 81ZUWlT9P
URLにハイフンがあるとダメなようだ
206 ｽﾚﾘﾝｸ(operate板:90-91番) sage 2008/05/10(金) 23:00:10 ID:ie7HvxzM0
コウスレバ貼レルカナ
213 ハデマツ勝ンセマリ乗名 sage New! 2008/05/11(月) 01:27:59 ID:TQkIXILWP
ｽﾚﾘﾝｸ(operate板:90番)
214 ハデマツ勝ンセマリ乗名 sage New! 2008/05/11(月) 01:29:15 ID:TQkIXILWP
成ル程、ハイフンガダメナヤウデアリマス
105:動け動けウゴウゴ２ちゃんねる
08/05/11 01:39:59 Op3c3LRM0
>>104
>>65
$a =~ s/http:\/\/[a-zA-Z0-9.,_\/]+//g ; #URL
↑たしかにハイフンは、ない ~と%と#もないけど。
106:73
08/05/11 01:55:54 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:動け動けウゴウゴ２ちゃんねる
08/05/11 01:57:09 sC/CC2SE0
訂正。ドット1個消し忘れ。
> s/h?ttps?:\/\/[\d\w,.\/#;?:@&%=+$.!~*'()-]+//g; # いろいろ考慮。でも手抜き。
s/h?ttps?:\/\/[\d\w,.\/#;?:@&%=+$!~*'()-]+//g; # いろいろ考慮。でも手抜き。
108:未承諾広告※ ◆TWARamEjuA
08/05/11 02:11:05 kuMiqLHt0
(´-`).｡ｏＯ(昔はこんなにRegExp入れたら負荷かかり卓って怒られたのになぁ♪)
109: ◆ula/HMKG4M
08/05/11 04:17:24 dcBOgulv0
平成生まれだからわかんなーい
110: ◆ula/HMKG4M
08/05/11 04:18:45 dcBOgulv0
URLのところは月曜日にでも 改修 改修
111:動け動けウゴウゴ２ちゃんねる
08/05/11 04:34:31 luIXGvPq0
>>101
ググレカス
URLﾘﾝｸ(www.google.co.jp)
112:動け動けウゴウゴ２ちゃんねる
08/05/11 09:11:10 BS/qn+Ew0
新設板・板移動情報・8＠運用情報
ｽﾚﾘﾝｸ(operate板:311番)
311 名前：まほら ★[sage] 投稿日：2008/05/11(日) 01:40:50 ID:???0 ?DIA(102030)
>>303さん
>>305 番犬さん
お疲れ様です。bbsmenu/bbsmenu2/bbstableの変更に対応致しました。
どこに入れればよろしいのかがよく分かりませんでしたので、
とりあえずは各カテゴリ最下部に入れさせて頂きましたが、よろしかったでしょうか？
あと、dejima板のbbsmenu名は「出島」の方がよろしかったでしょうか？
113: 【senji:1】
08/05/11 09:28:39 eGdte5pq0
>>111
● ●
(・∀・)ゞ
114:動け動けウゴウゴ２ちゃんねる
08/05/11 09:47:55 7jEPA7C+0
そんなヤツは戦時板使うなよ。。
115: 【senji:1】
08/05/11 09:49:33 eGdte5pq0
ｼｭｯ
ｼｭｯ ﾊ,,ﾊ ｼｭｯ
ﾊ,,ﾊ 彡（ ﾟωﾟ )
（ ﾟωﾟ )彡ミ（ ﾟωﾟ ) お断りします
＿(__つ/￣￣￣/＿
＼/ /
116:動け動けウゴウゴ２ちゃんねる
08/05/11 09:50:54 7jEPA7C+0
まず、この板では下げることから憶えような。坊主。
117: 【senji:1】
08/05/11 09:51:47 eGdte5pq0
ごめんごめん
118:動け動けウゴウゴ２ちゃんねる
08/05/12 21:01:45 FEWPtHKx0
ｽﾚﾘﾝｸ(kao板:73番)
119: [―{}@{}@{}-] 動け動けウゴウゴ２ちゃんねる
08/10/09 11:34:42 U2MGhlS00
mata