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

[Jordi Delgado]

Hola,

Y esto? Que tal?

#----------------------------------------------
$seq1 = "--- --- GAA --- GGA";
$seq2 = "AAC TGG --- --- ---";
@seq2 = split(//,$seq2);

($union = $seq1) =~ s/(.)/($1 eq "-") ? $seq2[$-[0]]: $1/ge;
#----------------------------------------------

El resultado es la string en $union
Es esto "Modern Perl"?? ;-))

Salud!

Jordi



> Hola,
> 
> Estic buscant una manera elegant de fer la unió de dues cadenes de
> caràcters. Per exemple:
> 
> $seq1 = "--- --- GAA --- GGA";
> $seq2 = "AAC TGG --- --- ---";
> 
> La norma és que es mantingui el "-" quan ambdues ho tenen, però s'esculli la
> lletra quan una contingui lletra:
> 
> $unio = "AAC TGG GAA --- GGA";
> 
> Potser mitjançant una expressió regular?
> 
> Gràcies,
> 
> Albert.

> _______________________________________________
> llista dels Barcelona-pm
> Barcelona-pm at pm.org
> http://mail.pm.org/mailman/listinfo/barcelona-pm
> BCN Perl Mongers: http://barcelona.pm.org