Question

如何用PERL统计一个文本文件的行数

Answer 1

参考下面的sample:

!#/usr/bin/perl -w
use strict;

my @array = `cat /usr/hom/cel/a.txt`;
my $line = @array;
print "There are total $line lines for /usr/hom/cel/a.txt.\n";