2007-03-22から1日間の記事一覧

[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