下
Yakumo BBS Scriptについて

---

275:小林◆YAKUMOZcw. 12/26(木) 20:26 w3Ube8h60 [sage]
>>274
あわわ大変お待たせしました
確認してみたらperlでは全角文字を１文字と扱ってくれないようです

本来なら

reg:$ = <br><hr>(!ipaddress)!remotehost<br>!useragent and mess=ジャ(ア|ァ|ー)+ップ

とすれば良いのですが、シフトJISには呪いが掛かっていますので
and 以降を次のようにしなければなりません

mess=ジャ(ア|ァ|\x81\[)+ップ

また、「メジャーアップデート」のような物に反応しないように前後に全角仮名が
有る場合を除外するには

mess=(?<!\x83[\x40-\x96])ジャ(ア|ァ|\x81\[)+ップ(?!\x83[\x40-\x96])

とします。これはシフトJIS限定の方法です。

---

上前次1-新書写板覧AA省

Yakumo BBS Scriptについて http://yakumotatu.com/bbs/test/read.cgi/freewear/1324794170/