view test_perl.pl @ 0:0ed6eb245448

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;