TSperl 発言

藤岡さん、Bruce.さん、ありがとうございます。

どうやら思い出してまいりました。

今回は大きなソースの他の部分に影響を与えたくないので、

use encoding ...;

はやめときます。

$str2 = '’';
$ASCIIL = '[\x00-\x09\x0b-\x0c\x0e-\x7f]';
$ASCII = '[\x00-\x7f]';
$TWOBYTES = '[\x8e\xa1-\xfe][\xa1-\xfe]';
$THREEBYTES = '\x8f[\xa1-\xfe][\xa1-\xfe]';
$EUC_KANJI = "[\xa1-\xfe]";
$str =~ s/^(?:$ASCIIL|$TWOBYTES|$THREEBYTES)*$str2/\1\'/g;

んな感じかな、と思ってます。今自宅にいないので、後で詳しく(むにゃむにゃ)。

--
閑舎