Loose-Info.com
Last Update 2008/05/18
TOP - Perl - 特殊変数 - $.

最後に入力を行ったファイルハンドルの現在の行番号を格納します。

(例)
open TEST, "<test.txt"; $line = <TEST>; # 1行目読み込み print "$. : line = $line\n"; $line = <TEST>; # 2行目読み込み print "$. : line = $line\n"; close TEST;

test.txt
test1 test2 test3 test4 test5

実行結果
1 : line = test1 2 : line = test2