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

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

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

194KB

新着レスの表示