Perlグローバル変数が初期化されていません

Question

私はperlを使い慣れていますので、私にご負担ください。

私はCSVファイルを解析しているスクリプトを持っています。物事をより簡単にデバッグするために、私は状態マシンFSA :: Rulesを使用しています。

今はすべてうまくいっています。私のログは意味をなさないようにする必要があります。私はプログラムがこのように見えるように、行番号を記録する必要があります。

my $line = ''; 
my $lineCount = 0; 
sub do { 
    ... 
    #CSV opened 
    ... 
    #State machine stuff happens here 
    readLine; 
    if ($line =~ m/.*Pattern*/){ 
     #do stuff 
    } 
} 
sub readLine{ 
    $line = <CSV>; 
    $lineCount ++; 
} 

しかし、私は$行が初期化されない理由をいずれもが知っ

Use of uninitialized value $line in pattern match (m//) at 

次のエラーを取得しますか？おかげさまで

Answer 1

ファイルの最後に到達すると、$line = <CSV>は$lineに未定義の値を割り当てます。通常のイディオムは...先に進む前に（暗黙のうちに<>オペレータによって呼び出される）readlineの機能が良い値を返されているか否か

while (my $line = <CSV>) { 
    # guaranteed that $line has a defined value 
    ... 
} 

をチェックすることですが、通話のあなたの順序で、あなたはそれを避けていますチェック。 <CSV>が適切な値を返さない場合でも、現在のコードは$lineCountをインクリメントします。