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

Enrique Nell blas.gordon a gmail.com
dll set 21 07:21:34 PDT 2009


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";


Més informació sobre la llista de correu Barcelona-pm