How to get number of lines in a text file 1

[varakal]

How can I get total number of lines in a text file using perl from command line. $. gives the line number where the file handle is pointing to, but I need only the last line number.

Thanks.

 

[PaulTEG]

open FH, "<$filename";
@lines=<FH>;
close FH;

print "$#lines lines in file $filename\n";

HTH


cigless ...

 

[varakal]

Paul, Thanks for your reply, it seems pretty straightforward, but is there a way we can do this from command prompt using perl -e ...

Thanks.

 

[Deleted]

yes...

% cat filename | wc -l

http://unixjunky.com

 

[PaulTEG]

prompt$ >perl script.pl

No??? 8)
--Paul


cigless ...

 

[mikevh]

perl -ne "eof && print $." filename

Easier to just say wc -l filename, though.

 

[mikevh]

Or, more awk-like:

perl -ne "END{print $.}" filename

 

[varakal]

Thanks mikevh, this is exactly what I needed.