Namazu-devel-ja(旧)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: filename 検索他修正
- From: Yukio USUDA <m6694ha392t@xxxxxxxxxxxxxxx>
- Date: Wed, 10 Mar 2004 07:30:57 +0900
- X-ml-name: namazu-devel-ja
- X-mail-count: 03800
- References: <404E31CD.4B31A907@asahi-net.or.jp>
臼田です。
Tadamasa Teranishi wrote:
> 寺西です。以下の修正を HEAD に行いました。
>
> ・全角スペースを半角スペースに変換するルーチンの追加
気づいていて直していませんでした。ありがとうございます。
正規表現の検索負荷がどの程度なのかわかりませんが
同じマッチングを二回するのは損な気がします。
下記のようにしませんか
sub eucjp_z2h ($) {
my ($tmp) = @_;
$tmp =~ m!\xa3([\xb0-\xb9\xc1-\xda\xe1-\xfa])! ? $tmp & "\x7F" : $tmp;
$tmp =~ m!\xa1\xa1! ? " " : $tmp;
$tmp;
}
sub eucjp_zen2han_ascii ($) {
my ($str) = @_;
if (util::islang("ja")) {
$str =~ s/([\xa1-\xfe][\xa1-\xfe]|\x8e[\xa1-\xdf]|\x8f[\xa1-\xfe][\xa1-\xfe])/
eucjp_z2h($1)/ge;
}
$str;
}
臼田幸生