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);