[bcn-pm] pregunta: unio de dues cadenes de caracters

[Enrique Nell]

Otra posibilidad, un poco más tradicional (supongo que los bloques de
letras van siempre de 3 en 3, ¿no?):

#!/usr/bin/perl
use strict;
use warnings;

my $seq1 = "--- --- GAA --- GGA";
my $seq2 = "AAC TGG --- --- ---";

my @seq1 = split /\s+/, $seq1;
my @seq2 = split /\s+/, $seq2;

my $union;
for (my $i = 0; $i <= $#seq1; $i++) {
    if ($seq1[$i] ne '---') {
        $union .= "$seq1[$i] ";
    } else {
        $union .= "$seq2[$i] ";
    }
}

print "$union\n";