Code Review: Innerhalb einer for Schleife das verwendete Array verändern (solved) (Allgemeines zu Perl)

[thread]18414[/thread]

Code Review: Innerhalb einer for Schleife das verwendete Array verändern [solved]

Tags: perl Similar Threads

Readers: 18

Articles: hide open all | hide show old branches

+6 replies
Kuerbis

2013-06-30 17:21
User since
2011-03-20
961 articles
BenutzerIn
Hallo!

In diesem Code verändere ich array innerhalb der for Schleife. Fällt so etwas in die Kategorie
[x] Kann man so machen.
oder in die Kategorie
[x] Sollte man nicht tun.
?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/env perl use warnings; use strict; use 5.10.0; use Term::Choose qw(choose); my @array = ( 'a' .. 'z' ); my @new; for my $i ( 0 .. $#array ) { my $choice = choose( [ 'ok', 'ans Ende', undef ], { prompt => "<$array[$i]>", undef => 'Exit' } ); exit if not defined $choice; if ( $choice eq 'ans Ende' ) { push @array, splice( @array, $i, 1 ); next; } push @new, $array[$i]; say "@new"; }
- betterworld
  
  2013-06-30 19:07
  User since
  2003-08-21
  2614 articles
  ModeratorIn
  In perlsyn steht bei mir:
  
  Quote
  If any part of LIST is an array, "foreach" will get very confused if you add or remove
  elements within the loop body, for example with "splice". So don't do that.
  
  Mit "LIST" ist dabei vermutlich der Teil in den runden Klammern nach "for" gemeint.
  
  Ich dachte, ich hätte mal irgendwo gelesen, dass man am Ende ruhig auch Elemente hinzufügen darf (also "push" wie bei Dir). Ich finde das aber gerade nicht.
  
  In Deinem Fall ist es ja noch einmal etwas anderes, weil Du ja nur über die Indices iterierst. In diesem Fall wäre es wichtig zu wissen, wann genau "$#array" als Code ausgewertet wird. Es könnte sein, dass durch irgendwelche Optimierungen die Indices auch mal als "lazy list" ausgewertet werden. Also wenn Du 100% sicher gehen willst (auch in Hinsicht auf zukünftige Perl 5er Versionen), lieber mal eine zusätzliche Variable einführen, die dann nicht mehr verändert wird:
  
  Code: (dl )
  
  1 2 3
  
  my @indices_vorher = (0..$#array); for (@indices_vorher) { }
  
  So wird es auch dem Leser besser klar, was Du da tust. Und wenn der Leser dann auch noch Änderungen machen möchte, ist es dann sicherlich auch robuster.
  Last edited: 2013-06-30 19:11:49 +0200 (CEST)
  Lieblingsmodule: IPC::System::Simple, Path::Class
- hlubenow
  
  2013-06-30 21:43
  
  User since
  2009-02-22
  885 articles
  BenutzerIn
  
  [x] Sollte man nicht tun.
  
  ;)
- Muffi
  
  2013-07-01 08:33
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Wenn ich direkt am Array innerhalb der Schleife rumbau mach ich das normalerweise mit while(@array) und shifte (oder pop) mir in der Schleife ein Element nach dem anderen runter.
  1 + 1 = 10
- +2 replies
- Kuerbis
  
  2013-07-01 10:20
  User since
  2011-03-20
  961 articles
  BenutzerIn
  Thx! Mit while schaut es gleich viel schöner aus und die Indices sind auch weg.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  while ( @array ) { my $el = shift @array; my $choice = choose( [ 'ok', 'ans Ende', undef ], { prompt => "<$el>", undef => 'Exit' } ); exit if not defined $choice; if ( $choice eq 'ans Ende' ) { push @array, $el; next; } push @new, $el; say "@new"; }
  - Muffi
    
    2013-07-01 10:28
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Kleinigkeit noch:
    Statt mit next würd ich das Ganze mit einem else lösen. Das macht den Ablauf klarer.
    
    [EDIT] Und noch ne kleinere Kleinigkeit: Ich finds unschön, dass Ablauflogik von der Anzeige eines Strings abhängt. Ich würd mir 'ans Ende' als Konstante anlegen. Falls die Anzeige? mal wer umbenennt und vergissts unten geht sonst das Programm kaputt.
    Last edited: 2013-07-01 10:35:15 +0200 (CEST)
    1 + 1 = 10

View all threads created 2013-06-30 17:21.