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

Linuxer

2008-03-11 19:04

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Hi,

z.B. über einen Hash:

Code (perl): (dl )

1
2
3

my %seen;
$seen{$_}++ for ( split( "", $string ) );
print join( '', sort keys %seen ), $/;

Oder mit uniq aus List::MoreUtils (Zusatzmodul).

http://search.cpan.org/~vparseval/List-MoreUtils-0...

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!