while-Schleife verlassen (Allgemeines zu Perl)

[thread]20202[/thread]

while-Schleife verlassen

Tags: perl5 while Ähnliche Threads

Leser: 9

Articles: hide open all | hide show old branches

+13 replies
Gast gastJan

2016-12-08 12:53
Hallo,

ich lese aus einer DB-Tabelle Sätze aus und möchte diese dann fetchen. Dies dann so lange, wie es Sätze gibt und eine Bedingung erfüllt ist. Die Schleife soll dann verlassen werden, wenn sich im Schleifendurchlauf die Bedingung ändert.
Habe das so probiert
Code (perl): (dl )

while ($flag == 0 && $userId = $sth->fetchrow_array()) {...}
Da wirft mir PERL ein Can't modify logical and (&&) in scalar assignment at ....

Nutzt man "heutzutage" den Befehl
Code (perl): (dl )

last;
oder ist das Spaghetti-Code?

Vielen Dank!
- +2 replies
- Linuxer
  
  2016-12-08 12:54
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Ein klares last if $condition innerhalb der While-Schleife finde ich OK.
  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!
  - Gast gastJan
    
    2016-12-08 13:52
    
    Danke :)
    Last edited: 2016-12-08 14:00:15 +0100 (CET)
- +3 replies
- Linuxer
  
  2016-12-08 14:12
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Nachtrag: Wenn Du es im Schleifenkopf haben willst, musst Du die Präzendenz der Operatoren beachten und ggfs. durch Klammerung beeinflussen.
  
  && hat Vorrang vor = und wird daher zuerst beachtet. Dementsprechend auch die Fehlermeldung.
  
  Versuch mal folgendes:
  
  Code (perl): (dl )
  
  while ( $flag == 0 && ( $userId = $sth->fetchrow_array() ) ) {...}
  
  Code (perl): (dl )
  
  while ( ($flag == 0) && $userId = $sth->fetchrow_array()) {...}
  
  Siehe dazu: http://perldoc.perl.org/perlop.html#Operator-Prece...
  
  edit: Klammerung korrigiert; @Raubtier: Danke für den Hinweis
  Last edited: 2016-12-08 15:06:42 +0100 (CET)
  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!
  - +2 replies
  - Raubtier
    
    2016-12-08 14:45
    
    User since
    2012-05-04
    1054 Artikel
    BenutzerIn
    
    Ähm, ich würde jetzt eher $userId = $sth->fetchrow_array() einklammern ;-)
    - Linuxer
      
      2016-12-08 15:05
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Hachja, könnte mich rausreden, dass das stillschweigende Aufgabe war, das selbst rauszufinden.
      War aber eigene Unaufmerksamkeit. Stimmt natürlich; die Klammerung gehört auf die andere Seite.
      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!
- +6 replies
- GwenDragon
  
  2016-12-08 14:20
  
  User since
  2005-01-17
  14532 Artikel
  Admin1
  
  Einfach and benutzen. and bindet schwächer als &&.
  while ($flag == 0 and $userId = $sth->fetchrow_array()) {...}
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +5 replies
  - Gast gastJan
    
    2016-12-08 14:31
    
    Ah!
    
    Hatte "AND" probiert, aber nur testweise, nicht weil ich wusste, dass das schwächer bindet und bekam Fehler.
    
    Dass es kleingeschrieben dann funktionieren würde, habe ich nicht gewusst.
    
    Mit der Klammerung und trotzdem "&&" klappt es nicht.
    
    Danke!
    Last edited: 2016-12-08 15:03:33 +0100 (CET)
    - Linuxer
      
      2016-12-08 15:07
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Hi, bei der vorgeschlagenen Klammerung war ich unachtsam. Hab meinen Beitrag korrigiert; probier es vielleicht nochmal mit der korrigierten Version.
      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!
    - +3 replies
    - Muffi
      
      2016-12-09 12:19
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Hi,
      
      als kleiner Tipp: Ich benutz in Perl eigentlich (fast) immer "and" statt "&&", außer ich will an der Stelle explizit die stärkere Bindung.
      
      Für mich bindet "and" einfach intuitiver und erspart so manchen Bug.
      </persönliche Meinung>
      
      PS: selbes mit "or" und "||"
      Last edited: 2016-12-09 12:20:05 +0100 (CET)
      1 + 1 = 10
      - GwenDragon
        
        2016-12-09 14:04
        
        User since
        2005-01-17
        14532 Artikel
        Admin1
        
        2016-12-09T11:19:01 Muffi
        als kleiner Tipp: Ich benutz in Perl eigentlich (fast) immer "and" statt "&&", außer ich will an der Stelle explizit die stärkere Bindung.
        
        Für mich bindet "and" einfach intuitiver und erspart so manchen Bug.
        </persönliche Meinung>
        
        PS: selbes mit "or" und "||"
        So mache ich das auch.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - Raubtier
        
        2016-12-09 15:00
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Noch nerviger ist das in Pascal, wo and so stark bindet wie eine Multiplikation, d.h. if a < b and b < c then (mit logischem and gewollt) ist wirklich if a < (b and b) < c then mit bitweisem and (sofern b ne Zahl ist), was natürlich keinen Sinn ergibt. Daher: lieber mal ne Klammer mehr nehmen, gerade wenn man unterschiedliche Sprachen spricht.
- Gast janus
  
  2016-12-08 19:33
  
  Ich würd' gucken ob ich das gleich mit SQL erledigen kann ;)
  Last edited: 2016-12-08 19:38:31 +0100 (CET)

View all threads created 2016-12-08 12:53.