diff --git a/tools/unikseq-Bloom.pl b/tools/unikseq-Bloom.pl index c9d84ff..cf5f51b 100755 --- a/tools/unikseq-Bloom.pl +++ b/tools/unikseq-Bloom.pl @@ -75,16 +75,15 @@ ###Prepare output #----- my $fn = "unikseq_" . $version . "-r_" . $f1 . "-i_" . $f2 . "-o_" . $f3 . "-k" . $k; -my $tsv= $fn . "-uniqueKmers.tsv"; +my $tsv = $fn . "-uniqueKmers.tsv"; my $tsvcons = $fn . "-conservedKmers.tsv"; -my $bed = $fn . ".bed"; $fn .= "-c" . $cflag . "-s" . $regsz . "-p" . $prop . "-l" . $minnotunique . "-u" . $minpercentunique . "-m" . $maxpercentoutgroup; -my $outunique=$fn . "-unique.fa"; -my $outcons=$fn . "-conserved.fa"; - -my $log=$fn . ".log"; +my $outunique = $fn . "-unique.fa"; +my $outcons = $fn . "-conserved.fa"; +my $bed = $fn . ".bed"; +my $log = $fn . ".log"; open(LOG,">$log") || die "Can't write to $log -- fatal.\n"; diff --git a/unikseq.pl b/unikseq.pl index 8d3ccd3..2a01353 100755 --- a/unikseq.pl +++ b/unikseq.pl @@ -66,7 +66,7 @@ ###Prepare output #----- my $fn = "unikseq_" . $version . "-r_" . $f1 . "-i_" . $f2 . "-o_" . $f3 . "-k" . $k; -my $tsv= $fn . "-uniqueKmers.tsv"; +my $tsv = $fn . "-uniqueKmers.tsv"; my $tsvcons = $fn . "-conservedKmers.tsv"; $fn .= "-c" . $cflag . "-s" . $regsz . "-p" . $prop . "-l" . $minnotunique . "-u" . $minpercentunique . "-m" . $maxpercentoutgroup;