指定ファイルの行数をカウントする簡単なプログラム例 #! /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, </stdin>…