# HG changeset patch
# User yves
# Date 1327502474 18000
# Node ID 8b5656463931104a1c928e0cbc5acd8fe461fd48
# Parent  7836a7d45d78b17363033d50d30aa7844012b7df
Uploaded

diff -r 7836a7d45d78 -r 8b5656463931 count_lines_in_file.pl
--- /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