Show results ";
+ for (my $i=0;$i<=$#dd;$i++)
+ {
+ if ($i==$#dd)
+ {
+ print OUT "$dd[$i].
\n";
+ }else{
+ print OUT "\n";
+ print OUT "
\n";
+ $np++;
+ }
+ $prev_plasmid=$curr_plasmid;
+ }
+
+ $domain=~s/\.\d+//;
+ unless ($printed{$name})
+ {
+ my $seq=$c{$name};
+
+ $seq=~s/\*//g;
+ $seq=form($seq,90);
+ print OUT "\n";
+ print OUT " \n";
+ print OUT "$name \n\n";
+ print OUT " | \n
\n";
+ print OUT "\n";
+ print OUT " \n$seq\n \n";
+ print OUT " | \n
\n | \n
\n";
+ $ntokens=2;
+ }
+ my $hd=uc $domain;
+ #www.canoro.altervista.org
+ if ($decode{$domain})
+ {
+ my $ddes=$decode{$domain};
+ $ddes=~s/\s+/ /g;
+ if ($ntokens % 2==0)
+ {
+ print OUT "\n";
+ }else{
+ print OUT " | \n";
+ }
+
+ print OUT " \n";
+ print OUT " $domain\n $ddes \n\n";
+ print OUT "\n | \n
\n | \n
\n";
+ $ntokens++;
+ }
+ if ($clan_decode{$clan})
+ {
+ my $clanD=$clan_decode{$clan};
+ $clanD=~s/\s+/ /g;
+ next if $decode{$domain} eq $clan_decode{$clan};
+ my $ddes=$decode{$domain};
+ if ($ntokens % 2==0)
+ {
+ print OUT "\n";
+ }else{
+ print OUT " | \n";
+ }
+
+ print OUT " \n";
+ print OUT " $clan\n $clanD \n\n";
+ print OUT "\n | \n
\n | \n
\n";
+ $ntokens++;
+ }
+ $printed{$name}=1;
+}
+
+#if ($curr_plasmid ne "")
+#{
+ print OUT "
\n";
+ print OUT "
\n";
+ print OUT "\n";
+#}
+#print OUT "