mini algorithmus - #49368 (Allgemeines zu Perl)

format_c

2003-09-09 17:45

User since
2003-08-04
1706 Artikel
HausmeisterIn

Kannst im Forum auch suchen.
Das wurde schon mehrfach gefragt.
geb dir trotzdem die Lösung:

Code (perl): (dl )

my %seen;
undef @seen{@data};
@data = keys %seen;
undef %seen;

Edit: Ich nehme an dass @data = "bla,bla"; eher @data = ("bla","bla","bla"); lauten soll oder?\n\n