Mercurial > repos > big-tiandm > mirplant2
diff matching.pl @ 47:c75593f79aa9 draft
Uploaded
author | big-tiandm |
---|---|
date | Wed, 03 Dec 2014 01:54:29 -0500 |
parents | 0c4e11018934 |
children |
line wrap: on
line diff
--- a/matching.pl Thu Nov 13 22:43:35 2014 -0500 +++ b/matching.pl Wed Dec 03 01:54:29 2014 -0500 @@ -11,7 +11,7 @@ use Getopt::Long; my %opts; -GetOptions(\%opts,"i=s","g=s","index:s","v:i","p:i","r:s","o=s","time:s","h"); +GetOptions(\%opts,"i=s","g=s","index:s","v:i","p:i","r:s","o=s","h"); if (!(defined $opts{i} and defined $opts{o} ) || defined $opts{h}) { #necessary arguments &usage; } @@ -27,11 +27,7 @@ my $time=&Time(); -if (defined $opts{'time'}) { - $time=$opts{'time'}; -} - -my $mapdir=$fileout."/genome_match_".$time; +my $mapdir=$fileout."/genome_match"; if(not -d $mapdir){ mkdir $mapdir; }