Programmierproblem: while Schleife (Allgemeines zu Perl)

[thread]7259[/thread]

Programmierproblem: while Schleife

Leser: 1

Gast Gast

2005-09-07 12:51

Code: (dl )

print "Viewer\n\n";
print "Bitte Pfad zur Datei eingeben:  ";
$eingabe =<STDIN>;
chomp($eingabe);
if($eingabe eq ""){
$eingabe="/home/gerhard/xml.ome";
}
my ($a,$reihe)=0,"";

#Öffnen der Datei
open(Datei,$eingabe) or die "Datei konnte nicht gefunden werden nicht gefunden Default wird verwendet";


while($zeile=<Datei> && $a==0){

if($zeile=~/</g || $zeile=~/<\//g){
  $zeile =~ s/</\n</g;
  $zeile =~ s/<\//\n\n<\//g;
  }

$reihe = $reihe.$zeile;
}

print "$reihe\n\n\n";

Hallo zusammen,
habe folgendes Problem bei diesem Programm. Und zwar in der While Schleife while($zeile=<Datei> && $a==0). $a wird vorher der Wert null zugewiesen. Entfernen ich $a aus der while läuft das Programm. Mit $a eben nicht. Eigentlich hat $a momentan keine Funktion in dem Programm.

Edit @Relais: Code-Tags spendiert\n\n

Relais

2005-09-07 13:47

User since
2003-08-06
2246 Artikel
ModeratorIn

[quote=Guest,07.09.2005, 10:51]Mit $a eben nicht. Eigentlich hat $a momentan keine Funktion in dem Programm.[/quote]
Ich würde sagen, das ist ganz einfach, laß das $a einfach weg.

Daß es nicht funktioniert, liegt daran, daß der &&-Operator stärkere Priorität hat als der ==-Operator.

Edit: Du kannst entweder die beiden Ausdrücke rechts und links vom &&-Operator in Klammern setzen, das würde ich aber nicht unbedingt empfehlen, oder aber den &&-Operator mit dem and-Operator austauschen.

Da $a auf "0" gesetzt wurde ergibt die Prüfung auf && $a FLASCH und die While-Schleife wird beendet.

Ein weiterer Tipp: $a und $b sind in Perl globale Variablen. Verwende welche mit sprechenden Namen stattdessen. Und wenn sie auch nur $test_schalter oder so etwa heißen.\n\n

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

trappatonie

2005-09-07 13:58

User since
2005-09-07
1 Artikel
BenutzerIn
[default_avatar]

Ja danke erstmal für die schnelle Antwort.
Kurz zur Erklärung. Der Code war eigentlich länger und das $a sollte zusätzlich dazu dienen die SChleife abzubrechen. Im geposteten Code ist $a natürlich nicht notwendig. Ich habe nur den Code soweit verkürzt bis ich bemerkte das der Fehler auftritt wenn der $a vergleich in der while Schleife steht

renee

2005-09-07 14:12

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

while($zeile=<Datei> && ($a==0)){

sollte helfen...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

2005-09-08 03:23

User since
2003-08-04
12208 Artikel
Admin1

[quote=Guest,07.09.2005, 10:51]

Code: (dl )

my ($a,$reihe)=0,"";

[/quote]
hättest du warnings benutzt (info Wiki:

hier), wüsstest du, dass das nicht tut, was du willst.
$reihe ist danach undef.

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

sri

2005-09-08 04:45

User since
2004-01-29
828 Artikel
BenutzerIn

Oh, ein Programmierproblem, das haette ich hier jetzt nich erwartet...

http://mojolicio.us/

Strat

2005-09-08 14:59

User since
2003-08-04
5246 Artikel
ModeratorIn

nebenbei: eine while- oder foreach-schleife kann man auch mit dem kommando "last" abbrechen... siehe perldoc -f last

Code: (dl )

while (1) {
  my $input = <FH> or last;
  # ....
  last if ($irgendwas eq $sonstwas);
  # ...

} # while

oder besser:

Code: (dl )

1
2

while (not eof(FH)) {
  # ...

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View all threads created 2005-09-07 12:51.