Hash iterieren und ändern (gelöst) (Allgemeines zu Perl)

[thread]17671[/thread]

Hash iterieren und ändern [gelöst]

Tags: perl5 hash iterieren ändern Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+9 replies
bianca

2012-08-15 18:22
User since
2009-09-13
6977 Artikel
BenutzerIn
'Nabend!

Ganz kurze Frage: Warum bekommt die äußere Schleife hier nicht mit, dass ich innen einen Key lösche und iteriert trotzdem auf foo1?
Erwarten würde ich, dass das print nur foo und foo2 ausgibt. Wieso ist das so? Kann ich der äußeren Schleife irgendwie beibringen, dass sie die keys neu laden soll?
Danke
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl use strict; use warnings; my %test = ( foo => 'bar', foo1 => 'bar1', foo2 => 'bar2', ); foreach my $temp (keys %test) { print "Bearbeite '$temp'\n"; delete $test{foo1}; }
Quote
d:\>perl test.pl
Bearbeite 'foo'
Bearbeite 'foo2'
Bearbeite 'foo1'

10 print "Hallo"
20 goto 10
- pq
  
  2012-08-15 18:25
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  die key-liste wird ja schon im schleifenkopf geladen.
  stell dir mal vor, perl würde bei jeder iteration die keys neu laden, in derselben reihenfolge (die bei einem hash ja nach veränderung auch anders sein kann) und dann gucken, ob ein key fehlt.
  das musst du anders aufbauen.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- GwenDragon
  
  2012-08-15 18:26
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  keys expandiert doch erst in eine Liste und dann verwendet foreach diese.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +3 replies
- bianca
  
  2012-08-15 18:31
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  Danke an beide, habe ich verstanden. Werde ein eigenes Array definieren und das zur Schleifenlaufzeit ändern.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #!/usr/bin/perl use strict; use warnings; my %test = ( foo => 'bar', foo1 => 'bar1', foo2 => 'bar2', ); my @keys = keys %test; foreach my $temp (@keys) { print "Bearbeite '$temp'\n"; delete $keys[2]; }
  
  Quote
  d:\>perl test.pl
  Bearbeite 'foo'
  Bearbeite 'foo2'
  
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - pq
    
    2012-08-15 18:34
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    was hast du denn davon? erstens weisst du vorher nicht die reihenfolge der keys, und zweitens kriegst du dann ein Use of uninitialized value, wenn du das element ausgibst.
    
    edit: beispiel:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
    
    $ perl use strict; use warnings; my %test = ( foo => 'bar', foo1 => 'bar1', foo2 => 'bar2', foo3 => 'bar3', ); my @keys = keys %test; foreach my $temp (@keys) { print "Bearbeite '$temp'\n"; delete $keys[2]; } __END__ Bearbeite 'foo3' Bearbeite 'foo' Use of uninitialized value $temp in concatenation (.) or string at - line 12. Bearbeite '' Bearbeite 'foo1'
    
    Last edited: 2012-08-15 18:38:53 +0200 (CEST)
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - bianca
      
      2012-08-15 18:38
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      2012-08-15T16:34:32 pq
      was hast du denn davon? erstens weisst du vorher nicht die reihenfolge der keys, und zweitens kriegst du dann ein Use of uninitialized value, wenn du das element ausgibst.
      
      Ja, stimmt schon. Hab das noch nicht fertig gedacht. Werde das wohl ganz anders aufziehen.
      10 print "Hallo"
      20 goto 10
- +3 replies
- flowdy
  
  2012-08-15 21:33
  
  User since
  2012-08-03
  45 Artikel
  BenutzerIn
  
  Was hast du genau vor? Warum bist du darauf angewiesen, dass sich die Kette der noch zu bearbeitenden Keys ändert [EDIT: ah, verstehe, foo1 ist ja statisch, also, s.u.]. Das versteh ich auch nicht ganz, wenn du den aktuellen Key in einer foreach (keys %hash) {}-Schleife löscht, ist das ja egal, da der Key für die weiteren Schleifendurchläufe sowieso nicht mehr relevant ist.
  
  Du kennst das Konstrukt while ( my ($key,$value) = each %hash ) {}? Das verwende ich standardmäßig, und das ist auch delete-stabil
  Last edited: 2012-08-15 21:35:21 +0200 (CEST)
  package MyClass; sub new {\b\b\b\b\b\b\b\b\buse Moose;
  - +2 replies
  - Raubtier
    
    2012-08-15 22:00
    
    User since
    2012-05-04
    1054 Artikel
    BenutzerIn
    
    2012-08-15T19:33:21 flowdy
    Du kennst das Konstrukt while ( my ($key,$value) = each %hash ) {}? Das verwende ich standardmäßig, und das ist auch delete-stabil
    
    Äm, wir haben ein anderes Verständnis von delete-Stabil...
    
    perldoc
    If you add or delete elements of a hash while you're iterating over it, you may get entries skipped or duplicated, so don't. Exception: It is always safe to delete the item most recently returned by "each()"
    
    Es gibt also nur einen speziellen Fall, wo man delete hier verwenden kann.
    - flowdy
      
      2012-08-16 19:59
      
      User since
      2012-08-03
      45 Artikel
      BenutzerIn
      
      Stimmt Raubtier, muss ich mit irgendwas anderem verwechselt haben, sorry. each ist eben auch nicht delete-stabil. Allerdings wurde nicht genug vom Problem mitgeteilt, so dass ich mich frage, warum Bianca die fraglichen Hashelemente nicht einfach außerhalb der Schleife löscht.
      package MyClass; sub new {\b\b\b\b\b\b\b\b\buse Moose;

View all threads created 2012-08-15 18:22.