参考下面的sample:!#/usr/bin/perl -wuse 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";
