Namazu-devel-ja(旧)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: perl -d:DProf (Re: HACKING-ja -> mknmz.in)
寺西です。
SATOH Fumiyasu wrote:
>
> ここで "/o" モディファイアを使うのはまずいですね。(^^;
>
> 代わりに、new() と addSpecials() されたときに、qr// でコンパイル
> しておくとどうでしょう?
>
> my $token = '(' .
> (join '|', sort {length($a) <=> length($b)} @{$self->{SPECIALS}->{$type}})
> . ')';
> $self->{SPECIALS_RE}->{$type} = qr/$token/mg;
> ...
> if ($tdata =~ $self->{SPECIALS_RE}->{$type}) {
> ...
> }
>
> ...
おぉ。そんなことができるんですね。知らなかった。テストはしてみます。
--
=====================================================================
寺西 忠勝(TADAMASA TERANISHI) yw3t-trns@xxxxxxxxxxxxxxx
http://www.asahi-net.or.jp/~yw3t-trns/index.htm
Key fingerprint = 474E 4D93 8E97 11F6 662D 8A42 17F5 52F4 10E7 D14E