Mercurial > repos > elixir-it > corgat_multifc

changeset 1:2a5485758ae7 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author elixir-it
date Tue, 16 Feb 2021 09:26:30 +0000
parents 3f6d4e4340e8
children
files multifasta/align.pl
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/multifasta/align.pl	Fri Oct 30 13:32:35 2020 +0000
+++ b/multifasta/align.pl	Tue Feb 16 09:26:30 2021 +0000
@@ -167,6 +167,11 @@
 			my $id=$1;
 			$id=(split(/\s+/,$id))[0];
 			$id=~s/\-//g;
+			if ($id=~/\|/)
+                        {
+                                $id=(split(/\|/,$id))[1];
+                        }
+                        $id=~s/\//\_/g;
 			open(OUT,">$tgdir/$id.fasta");
 			print OUT ">$id\n";
 			push(@list_files,"$tgdir/$id.fasta");