Mercurial > repos > yves > test_perl

changeset 2:8b5656463931

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:14 -0500
parents 7836a7d45d78
children e2fa0cd94570
files count_lines_in_file.pl
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/count_lines_in_file.pl	Wed Jan 25 09:41:14 2012 -0500
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+$fq_file = $ARGV[0];
+$count_lines = 0;
+open(FQ,"<$fq_file") or die "Cannot open file [$fq_file] : $!\n";
+while (<FQ>) {
+   $count_lines++;
+}
+close(FQ);
+print "Found [$count_lines] lines\n";
+exit;
\ No newline at end of file