merge strings - #120456 (Allgemeines zu Perl)

topeg

2009-04-09 16:58

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

so sollte es auch gehen. Klappt auch mit Sequenzen wenn man das split anpasst.

Code (perl): (dl )

1
2

my $merged="";
map{ $merged .= $_ if( $merged !~/\Q$_\E/ ) } split(//, $string1.$string2);