Mercurial > repos > mcharles > rapsosnp

comparison rapsodyn/ParseBlastForUniqueMatch.pl @ 10:0a6c1cfe4dc8 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author mcharles
date Mon, 19 Jan 2015 04:33:21 -0500
parents 3f7b0788a1c4
children
comparison
equal deleted inserted replaced
9:0e7c6fe60646 10:0a6c1cfe4dc8
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 #V1.1.0 manage empty files
2 #V1.0.1 added log, option parameters 3 #V1.0.1 added log, option parameters
3 use strict; 4 use strict;
4 use warnings; 5 use warnings;
5 use Getopt::Long; 6 use Getopt::Long;
6 7
22 my $nb_variant_checked=0; 23 my $nb_variant_checked=0;
23 my $nb_variant_selected=0; 24 my $nb_variant_selected=0;
24 my %hash_name; 25 my %hash_name;
25 26
26 open(INB, $input_blast_file) or die ("Can't open $input_blast_file\n"); 27 open(INB, $input_blast_file) or die ("Can't open $input_blast_file\n");
28 if ( -z INB){
29 exit(0);
30 }
31
27 while (my $line =<INB>){ 32 while (my $line =<INB>){
28 my @fields = split (/\s+/,$line); 33 my @fields = split (/\s+/,$line);
29 # print $#fields,"\n"; 34 # print $#fields,"\n";
30 # print $line; 35 # print $line;
31 # exit(0); 36 # exit(0);