view count_lines_in_file.pl @ 3:e2fa0cd94570 default tip

Uploaded

#!/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;