Namazu-devel-ja(旧)

[Tadamasa Teranishi <yw3t-trns@xxxxxxxxxxxxxxx>]

寺西です。

"Sakuma,Hiroaki" wrote:
> 
> ワーニングは，多分mknmzの-wスイッチのせいだと思います．$6がセットされない状

はい。そうです。

> 態で，それを参照しようとしているためです．(なんか矛盾しているようなワーニン
> グですが)

はい。確認しています。
 
>     $$contref =~ s!</?(?:([A-Z]\w*):|(\!)\[.*?\]).*?>!element_space($1 ||
> $2)!gsixe;
> 
> でどうでしょうか．でも$1が無い時ワーニングしそうですし...．

確認しました。

#!/bin/perl -w

my $a = undef;
my $b = undef;

print ($a||$b);

で、Use of uninitialized value in print at p.pl line 6.
がでますが、$a または $b (または両方) に値が設定されていると、
ワーニングが消えます。

$a || $b の際には値を参照ししたわけではないので、大丈夫という
わけですね。(う〜む。難しい)

というわけで、本件は element_space($1 || $2) でワーニングを
消すことができました。

# perler には当たり前の話ですね。すみません。勉強になります。
-- 
=====================================================================
寺西 忠勝(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