Use of uninitialized value ---

Question

初心者です。フォームに文字を入力してもらい、↓
print blockquote(
    textfield(
       -name => 'die Antwort',
省略----条件にあえば、
my $value = param('die Antwort');#として
if (($value eq $ans || $value eq $ans2) and ($c eq $num)){
「正解」と表示することにしました。すると、うまくいくのですが、
if (($value eq $ans || $value eq $ans2) and ($c eq $num)){
について「Use of uninitialized value ----」とApacheのerror logに書かれてしまいます。このためerror logがすぐに巨大なファイルになってしまいます。これを避ける方法をお教えください。よろしく、お願いいたします。

t-okura · Accepted Answer

コードに use warnings が入っているのですよね。
デバッグも済んでいるのでしたら、
no warnings qw ( uninitialized );
で、この警告の表示を抑制してもよいと思います。

sakusaker7 · Answer

今回一番の問題は $value という変数ですよね?
参照前にいちいち defined で変数をチェックして回るのも面倒ですから、
サブルーチン param が undef の代わりに空文字列を返すようにするように変更するとか、
サブルーチンを変更できないのであれば、呼び出しの箇所で undef が返されたかどうかを確認し、
undef だったら適当に内容を書き換えるというやり方はどうでしょうか?

こんな感じ。
#!/usr/bin/perl
use strict;
use warnings;

use feature ':5.10';

sub foo {
    undef;
}


my $var = foo;
#my $var = foo || 'dummy';

say $var;

これを実行すると

Use of uninitialized value $var in say at okw.pl line 15.

のような警告が出されますが、下のコメントアウトされている行と入れ替えると

dummy

のようになります。

_--_1l1_1_ · Answer

回答になっているかわかりませんが、貼っときます。ペタ
---
    # 方法1 予め不正解となる値で初期化しておいて "処理" で更新する
    my $value = '';

    # 処理

    if ( ( $value eq $ans1 || $value eq $ans2 ) and ( $c eq $num ) ) {
        print '正解', "
";
    }
    else {
        print '不正解', "
";
    }

    # 方法2 definedで初期化されたか確認する
    my $value;

    # 処理

    if (    ( defined $value )
        and ( $value eq $ans1 || $value eq $ans2 )
        and ( $c eq $num ) )
    {
        print '正解', "
";
    }
    else {
        print '不正解', "
";
    }

Use of uninitialized value ---

コードに use warnings が入っているのですよね。

今回一番の問題は $value という変数ですよね?

回答になっているかわかりませんが、貼っときます。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング