Opened by roooot at 2009-04-09 15:27
User since
2006-11-26
384 Artikel
BenutzerIn
2006-11-26
384 Artikel
BenutzerIn
Habs mal getestet, aber bekomme immer nur folgende Fehler Warnung:
Was hab ich falsch gemacht?
Ich haette das wahrscheinlich genauso wie Kein Kommentar gemacht, nur beim regex ohne /g.
Wobei deine Loesung wesentlich mehr perlish aussieht. :)
EDIT: Wenn ich $string1 mit einem Buchstaben erweiter' geht es natuerlich.
EDIT 2: Anscheinend merged das auch nicht richtig. Zumindest bei mir nicht.
Last edited: 2009-04-09 16:06:44 +0200 (CEST)
QuoteOdd number of elements in hash assignment at ./test.pl line 9.
Was hab ich falsch gemacht?
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use strict; use warnings; my $string1 = 'abcdef'; my $string2 = 'efghijk'; my %seen = map $_ => 1, split //, $string1; my $merged = $string1; not $seen{$_} and $merged .= $_ for split //, $string2;
Ich haette das wahrscheinlich genauso wie Kein Kommentar gemacht, nur beim regex ohne /g.
Wobei deine Loesung wesentlich mehr perlish aussieht. :)
EDIT: Wenn ich $string1 mit einem Buchstaben erweiter' geht es natuerlich.
EDIT 2: Anscheinend merged das auch nicht richtig. Zumindest bei mir nicht.
Last edited: 2009-04-09 16:06:44 +0200 (CEST)