Mercurial > repos > mcharles > genephys
changeset 4:3d79224aa2dc draft
Uploaded
author | mcharles |
---|---|
date | Thu, 30 Oct 2014 06:06:34 -0400 |
parents | 8dfa09868059 |
children | f505fd29f970 |
files | genephys/GenePhys.pl |
diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/genephys/GenePhys.pl Fri Oct 24 05:54:20 2014 -0400 +++ b/genephys/GenePhys.pl Thu Oct 30 06:06:34 2014 -0400 @@ -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);