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


Copyright(C) 2006-2011 CLAYPOT. All Rights Reserved.