Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]5702[/thread]

mini algorithmus



<< >> 7 Einträge, 1 Seite
darmon
 2003-09-09 17:41
#49367 #49367
User since
2003-09-01
30 Artikel
BenutzerIn
[default_avatar]
hallo zusammen,

hab folgendes problemchen.
und zwar bekomm ich ein feld aus der datenbank geliefert ,welches ungefähr so aussieht:

@data = "uschi, leer, leer, anna, leer, leer, cindy, leer, leer, anna, leer, cindy, leer, sandy";

nun möchte ich die namen einmalig in einem feld stehen haben.
@sortiert="anna,cindy,sandy,uschi"

meine versuche sind entweder zu zeitaufwendig oder klappen gar nicht.

also danke schon mal
tschau
andi
format_c
 2003-09-09 17:45
#49368 #49368
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Kannst im Forum auch suchen.
Das wurde schon mehrfach gefragt.
geb dir trotzdem die Lösung:
Code (perl): (dl )
1
2
3
4
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

<!--EDIT|format_c|1063115191-->
darmon
 2003-09-09 17:50
#49369 #49369
User since
2003-09-01
30 Artikel
BenutzerIn
[default_avatar]
hi format_c,
danke schon mal für deine schnelle antwort. aber kannst du mir des auch erklären?
besonders des mit dem %seen, der rest is mir schon klar.
aber wenn ich mir später %seen ausgeben lass, erhalte ich gar nix. oder befind ich mich schon auf dem holzpfad????
havi
 2003-09-09 17:53
#49370 #49370
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
[quote=darmon,09.09.2003, 15:50]besonders des mit dem %seen, der rest is mir schon klar.
aber wenn ich mir später %seen ausgeben lass, erhalte ich gar nix. oder befind ich mich schon auf dem holzpfad????[/quote]
Du setzt %seen ja am Schluss auf undef...
darmon
 2003-09-09 17:58
#49371 #49371
User since
2003-09-01
30 Artikel
BenutzerIn
[default_avatar]
ahhhhhhhhh, bin dahinter gekommen, fitte schae kann ich nur sagen, da wär ich selber nie drauf gekommen.

habt echt was auf dem kasten.
ich hätte es halt mit schleifen durchläufe versucht aber dieser versuch dauerte viel zu lang und war viel zu codeaufwändig.

also danke nochmal
havi
 2003-09-09 18:01
#49372 #49372
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
[quote=darmon,09.09.2003, 15:58]... da wär ich selber nie drauf gekommen.

habt echt was auf dem kasten.[/quote]
Diese Meinung kannst du gerne deinen Freunden, Bekannten usw. weitergeben... :-)

*Perl-Community.deSensationellFind*

Gruss\n\n

<!--EDIT|havi|1063116142-->
darmon
 2003-09-09 18:10
#49373 #49373
User since
2003-09-01
30 Artikel
BenutzerIn
[default_avatar]
die haben mit perl nicht soviel am hut, aber sollt mich mal einer fragen, ob ich weiss wo man denn knifflige fragen stellen kann. dann werde ich antworten schau doch mal bei den perl-jungs vorbei...........


hat nichts mim thema zu tun aber is eine ganz spassige seite

www.whitehouse.org
<< >> 7 Einträge, 1 Seite



View all threads created 2003-09-09 17:41.