comparison multifasta/align.pl @ 1:2a5485758ae7 draft default tip

Uploaded

0:3f6d4e4340e8

		if ($_=~/^>(.*)/)
		{
			my $id=$1;
			$id=(split(/\s+/,$id))[0];
			$id=~s/\-//g;
			open(OUT,">$tgdir/$id.fasta");
			print OUT ">$id\n";
			push(@list_files,"$tgdir/$id.fasta");
		}else{
			chomp();

1:2a5485758ae7

		if ($_=~/^>(.*)/)
		{
			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");
		}else{
			chomp();