Mercurial > repos > yves > test_perl

changeset 1:7836a7d45d78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Deleted selected files
author yves
date Wed, 25 Jan 2012 09:02:52 -0500
parents 0ed6eb245448
children 8b5656463931
files test_perl.pl
diffstat 1 files changed, 0 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/test_perl.pl	Wed Jan 25 08:57:59 2012 -0500
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,11 +0,0 @@
-#!/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