[perl]
ファイルの行数とか楽に知りたかったのでFile::Utilを使ってみた。
use File::Util; my $file = shift or die ; my $fh = File::Util->new; print $fh->line_count( $file );
http://search.cpan.org/dist/File-Util-3.18/Util.pod#line_count
ファイルの行数とか楽に知りたかったのでFile::Utilを使ってみた。
use File::Util; my $file = shift or die ; my $fh = File::Util->new; print $fh->line_count( $file );
http://search.cpan.org/dist/File-Util-3.18/Util.pod#line_count