行番号の取得

---

　特殊変数$.でファイルの何行目を読んだのかが分かります。

use strict;
use warnings;

my $filename = 'foo.txt';
open my $fh, $filename or die "$filename:$!";
while (my $line = <$fh>) {
	printf "%4d: %s", $., $line;
}
close $fh;

---

関連項目

・eof関数