nicht angemeldet
Hallo hth,
warn join(" ", grep !{map(($_ => 1), split/\s+/, $seen)}->{$_}, split/\s+/, $all);
--- upmh. Das ist es, warum ich Perl so liebe. TMTOWTDI. Manche dieser Wege sind schlicht ehrfurchtgebietend.
allerdings würde ich dringend zu einer lesbaren variante raten, die ohne kommentare auskommt!
--- yepp. Ich glaube, meine ursprüngliche Idee war doch gar nicht so umständlich, zumindest ist sie leicht zu verstehen.
Danke Dir
JOhnnY