■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

次期主力bananaサーバ建造委員会 その5

598 : ◆Choco52.ko :2007/02/17(土) 06:47:47 ID:PlQPfksc0
>>549 (スレ違いなら適切なスレに誘導願います)
マルチバイト対応させてない Perl であれば、こんな感じでしょうか?

$re = '1−2−3'; # 固定文字として扱いたい
$re = '!2ch\.net/\w+'; # 正規表現として扱いたい(先頭の ! をスイッチとする)
if ($re =~ s/^\!//) { # スイッチ文字で分岐
# SJIS文字を含んだ正規表現として扱う(2バイト文字を適切にエスケープ)
$re =~ s/([\x81-\x9f\xe0\xfc])(?:(\W)|([\x40-\xfc]))/$2?"\x5c$1\x5c$2":"\x5c$1$3"/eg;
} else {
# 固定文字列として扱う
$re = "\Q$str";
}

194KB
新着レスの表示

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30