Mercurial > repos > yves > test_perl

annotate count_lines_in_file.pl @ 3:e2fa0cd94570 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author yves
date Wed, 25 Jan 2012 09:41:43 -0500
parents 8b5656463931
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
8b5656463931 Uploaded
yves
parents:
diff changeset
1 #!/usr/bin/perl
8b5656463931 Uploaded
yves
parents:
diff changeset
2
8b5656463931 Uploaded
yves
parents:
diff changeset
3 $fq_file = $ARGV[0];
8b5656463931 Uploaded
yves
parents:
diff changeset
4 $count_lines = 0;
8b5656463931 Uploaded
yves
parents:
diff changeset
5 open(FQ,"<$fq_file") or die "Cannot open file [$fq_file] : $!\n";
8b5656463931 Uploaded
yves
parents:
diff changeset
6 while (<FQ>) {
8b5656463931 Uploaded
yves
parents:
diff changeset
7 $count_lines++;
8b5656463931 Uploaded
yves
parents:
diff changeset
8 }
8b5656463931 Uploaded
yves
parents:
diff changeset
9 close(FQ);
8b5656463931 Uploaded
yves
parents:
diff changeset
10 print "Found [$count_lines] lines\n";
8b5656463931 Uploaded
yves
parents:
diff changeset
11 exit;