Listenaufräumen (Elemente entfernen) (Allgemeines zu Perl)

[thread]18975[/thread]

Listenaufräumen (Elemente entfernen)

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+7 replies
jan99

2014-03-17 18:45
User since
2008-09-18
439 Artikel
BenutzerIn
hi !

ich habe mal eine Frage zu einer guten Vorgehensweise.

Es geht darum das ich eine Liste mit Werten (das sind ID's für andere Objekte) habe.
Code: (dl )

my @data = (1, 2, 3, 4, 5);
Nun erfolgt eine Überprüfung dieser Werte auf eine bestimmte Bedingung geprüft und wenn diese erfüllt ist, dann wird er Wert in eine andere Liste aufgenommen.

Damit diese Wert für die nächste Prüfung nicht mehr zur Verfügung steht muss dieser Wert aus der Liste entfernt werden.

Das entfernen wäre mit splice wohl machbar. Die Prüfung der Werte in @data erfolgt mit foreach - aber wenn ich dann "direkt vor Ort" den Wert entferne, dann sicherlich die gesamte List mit den Indexen durcheinander gebracht.

Wenn die Liste geprüft ist, dann könnte man die Liste mit den gefunden Werten umdrehen und dann wieder nach den Werten suche und dann löschen wenn der Index keine Rolle mehr spielt. Abgesehen davon würde die Liste dann von hinten aufgeräumt werden.

Gibt es eine bessere Lösung dafür - das wäre jetzt meine Frage an Euch ?

Gruß jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +2 replies
- hlubenow
  
  2014-03-17 19:11
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Ich würde die Liste durchlaufen und nur die Werte, die nicht gelöscht werden sollen, in eine neue Liste einfügen.
  Wenn ich richtig verstanden habe, was Du machen willst.
  
  Jedenfalls darf man nicht Werte aus einer Liste löschen, wenn gerade ein foreach darüberläuft. Sonst kommt die Schleife durcheinander. Zumindest kenne ich es so aus anderen Sprachen (kann sein, daß Perl da eine Magie anwendet, um es zu verhindern).
  - GUIfreund
    
    2014-03-17 19:35
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    Man kann die Liste rückwärts durchlaufen:
    
    Code (perl): (dl )
    
    foreach my $idx (reverse 0 .. $#data) {
    
    Wenn du die Werte in der anderen Liste in der ursprünglichen Reihenfolge brauchst, sammle sie zunächst in einem Hilfsarray, drehe diesen am Schluss um und kopiere dann in die andere Liste.
    
    Andere Möglichkeit: Durchsuche die Liste vorwärts, nach jedem Splice beginne die Suche von vorn.
    Gruß
    GUIfreund
- +2 replies
- Linuxer
  
  2014-03-17 19:24
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Die Liste liegt als Array vor?
  
  Dann könntest Du mit while() durch die Liste gehen, oder?
  
  Schema:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my @neue_liste; # holt element raus und entfernt es gleichzeitig aus der liste; bis liste leer ist while ( my $item = shift @liste ) { # mache was mit $item; prüfen, oder sonstwas push @neue_liste, $item; }
  
  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!
  - jan99
    
    2014-03-17 21:20
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    danke für die Tipps - werde wohl den letzten nehmen. Element x für das eine oder das andere nehmen und dann wieder in die Ausgangsliste überführen.
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- murphy
  
  2014-03-18 00:07
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Dafür kann man eigentlich einfach List::MoreUtils::part nehmen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  use 5.012; use List::MoreUtils qw(part); my $data = [qw(some stuff and so on)]; my ($data, $found) = part { /o/ } @$data; say join ' ', @$data; # prints 'stuff and' say join ' ', @$found; # prints 'some so on'
  
  When C++ is your hammer, every problem looks like your thumb.
- rosti
  
  2014-03-18 07:52
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  Was auch möglich ist: Das Listenelement nur taggen und das kannst Du gleich im foreach machen (ohne splice auf die Liste anzuwenden).
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my @li = qw(foo bar baz boo); foreach my $el(@li){ if($el eq 'boo'){ $el = 'tagged'} # irgendeine Bedingung }

View all threads created 2014-03-17 18:45.