【これだけ覚えりゃなんとか使えるPerlメモ8】行数カウント

指定ファイルの行数をカウントする簡単なプログラム例

#! /usr/bin/perl
if (@ARGV == 1) {
  die "$ARGV[0] not exist \n$!" unless -e $ARGV[0];
  open ( STDIN, $ARGV[0] ) || die "Can't open file \n";
}

while (<STDIN>) {
  $line_count++;
}
print $line_count, "\n";

または、ダイアモンド演算子にて以下のように書くこともできる。

while (<>) {
  $line_count++;
}

line_count.plなどのファイル名で保存し、

line_count.pl <fine_name>

または

cat <file_name> | line_count.pl

のように実行。