Eindeutige Liste aller Zeichen im String - #106965 (Allgemeines zu Perl)

roli

2008-03-11 18:39

User since
2004-12-31
424 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich suche einen weg, wie ich eine eindeutige Liste aller vorkommenden Zeichen eines Strings erzeugen kann, oder auch, ich will evtl. vorkommende Doubletten loeschen. Die "Ergebnisreihenfolge" ist egal.
Was ich habe ist:

Code (perl): (dl )

#!/usr/bin/perl -w

my $in  = "abcdee3fgh1234eee";
my $out = "";

$out = join("",sort(split("",$in)));
$out =~ s/(.+)\1/$1/g;

print "in : $in\n";
print "out: $out\n";

Ergebnis
in : abcdee3fgh1234eee
out: 1234abcdeeefgh

So geht's also schon mal nicht, leider. Hat jemand eine Idee?

Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2