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