[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