Perl でファイルの行数を数える

comments(0) | trackback(1)

$. が最後に入力したファイルハンドルの行数を格納している
ファイルハンドルを最後まで読み込み，$. を参照すると OK．

#!/usr/bin/env perl

open(FILE, 'hoge') or die;
print <FILE>;   # ファイル内容を出力する場合
# 1 for <FILE>; # ファイル内容を出力しない場合
print $. . '行\n';
close(FILE);