While Schleife - logische operatoren? (gelöst) (Allgemeines zu Perl)

[thread]16867[/thread]

While Schleife - logische operatoren? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+3 replies
monti

2011-10-31 12:36
User since
2011-08-05
57 Artikel
BenutzerIn
Hallo zusammen,

ich nutze aktuell Perl 5.10.0 und möchte für die Bedingung einer While Schleife gerne logische Operatoren nutzen (insb. || ) aber irgendwie bin ich zu doof.
In der "do until" Schleife funktioniert es.
Beispiel:
Code: (dl )

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w use strict; my $line; do { $line=<STDIN>; chomp $line; print "Input: $line\n"; } until $line eq "ENDE" || $line eq "QUIT";
Das selbe Beispiel mit einer while Schleife bekomme ich jedoch nicht hin:
Code: (dl )

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w use strict; my $line; while ($line ne "ENDE" || $line ne "QUIT") { $line=<STDIN>; chomp $line; print "Input2: $line\n"; }
Denkfehler meinerseits? Syntaxproblem? Oder geht es mit While einfach nicht?

Danke für Hilfe!
Tschau
Stefan
- +2 replies
- monti
  
  2011-10-31 12:55
  User since
  2011-08-05
  57 Artikel
  BenutzerIn
  oh man, mein Hirn!
  
  es muss natürlich
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!/usr/bin/perl -w use strict; my $line; while ($line ne "ENDE" && $line ne "QUIT") { $line=<STDIN>; chomp $line; print "Input2: $line\n"; }
  
  heissen.
  Problem solved :)
  - pq
    
    2011-10-31 13:06
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    als hausaufgabe einmal De_Morgan'sche_Gesetze durchlesen =)
    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

View all threads created 2011-10-31 12:36.