Mercurial > repos > yves > test_perl

changeset 0:0ed6eb245448

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author yves
date Wed, 25 Jan 2012 08:57:59 -0500
parents
children 7836a7d45d78
files test_perl.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/test_perl.pl	Wed Jan 25 08:57:59 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