| Previous changeset 3:8dfa09868059 (2014-10-24) Next changeset 5:f505fd29f970 (2014-10-30) |
|
Commit message:
Uploaded |
|
modified:
genephys/GenePhys.pl |
| b |
| diff -r 8dfa09868059 -r 3d79224aa2dc genephys/GenePhys.pl --- a/genephys/GenePhys.pl Fri Oct 24 05:54:20 2014 -0400 +++ b/genephys/GenePhys.pl Thu Oct 30 06:06:34 2014 -0400 |
| b |
| @@ -1,4 +1,5 @@ #!/usr/bin/perl +#V1.1.1 minor bug correction (see in code) #V1.1.0 integrated gene extraction #V1.0.2 integrated segment fasta extraction #V1.0.1 added log and option @@ -282,7 +283,7 @@ open(IG, $input_genes_position_file) or die("Can't open $input_genes_position_file\n"); while (my $gene_desc=<IG>){ - my @gene_desc = split(/\s+/,$gene_desc); + my @gene_desc = split(/\t+/,$gene_desc);#Modification in 1.1.1 : \s => \t if ($#gene_desc != 4){ print STDERR "Error in gene position file format\n$gene_desc\n"; exit(0); |