未初期化値の使用

Question

次のコードでこの警告をデバッグしようとしています。

連結で初心者値$ aprs_positionの使用（。）または文字列では/ usr/local/binに/ arsedライン207

foreach my $ent (@upd_q) { 

    my $aprs_position = Ham::APRS::FAP::make_position(
     $ent->{'latitude'}, 
     $ent->{'longitude'}, 
     -1,  # speed 
     -1,  # course 
     -10000, # altitude 
     (defined $ent->{'symbol'}) ? $ent->{'symbol'} : '/[', # symbol 
     1,               # compression 
     0               # no ambiguity 
    );                

    print "$aprs_position\n"; 

    my $packet = sprintf('%s>APTR01:!%s', $ent->{'callsign'}, $aprs_position); 

    print "$packet\n"; 

    if ($aprs_enable == 1) { 

     my $ok = $is->sendline($packet); 

     if (! $ok) { 
      $is->disconnect(); 

エラーのいずれかがあることが表示されます値がHam::APRS::FAP::make_positionから戻ってくるか、構文エラーですか？

これをデバッグするにはどうすればよいですか？

Answer 1

これは構文エラーではありません（コードが実行されていなかった場合）、まったく実行されないため、Ham::APRS::FAP::make_position()への呼び出しから戻ってくるものが得られていないことは間違いありません。

the code for the subroutineを参照すると、私はそれがundefを返す原因をいくつか見ていますが、著者が間違っていることを正確に伝えるための警告を表示することを信じていません。

私の場合は、デバッガを使用してそのサブルーチンの実行をトレースして、どこが間違っているかを確認します。私はそれが$symbolsを扱うコードの何かであると思われますが、あなたがそこを通過していることはわかりません。

また、その変数を設定する行の後に、このようなものを追加します。

die 'Undefined value for $aprs_position' unless defined $aprs_position;