Naotsugu https://blog.hatena.ne.jp/Naotsugu/ A Memorandum https://blog1.mammb.com/ Perl 指定ファイルの行数をカウントする簡単なプログラム例 #! /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.p… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog1.mammb.com%2Fentry%2F20091123%2F1258960667" title="【これだけ覚えりゃなんとか使えるPerlメモ8】行数カウント - A Memorandum" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-11-23 16:17:47 rich https://blog1.mammb.com/entry/20091123/1258960667 1.0 100%