Problem mit datei auslesen (Allgemeines zu Perl)

[thread]14845[/thread]

Problem mit datei auslesen

Leser: 20

Articles: hide open all | hide show old branches

+5 replies
niladmirari

2010-03-22 17:11
User since
2010-03-10
4 Artikel
BenutzerIn
Hallo Leute,
kann mir Jemand erklären warum Ich beim ausführen des Codes
eine Fehlermeldung bekomme.
In der While-Schleife ist alles in Ordnung.
Ausserhalb soll die Variable $ersetzen keinen wert besitzen,laut der
Fehlermeldung. warum?

Danke im Voraus.

Ausgabe des Programms mit der Fehlermeldung:

ausgabe1:Suche ein zitat von einstein
Use of uninitialized value $ersetzen in concatenation (.) or string at temp.pl l
ine 15, <ERSETZEN> line 1.
ausgabe2:
Code (perl): (dl )

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

#!C:\strawberry\perl\bin -w use strict; my $ersetzen; open (ERSETZEN,"suchen.txt") || die "kann Datei nicht oeffnen: $!"; while($ersetzen = <ERSETZEN>){ #liest aus der datei die einzelnen zeile heraus chomp($ersetzen); print "ausgabe1:$ersetzen\n"; } print "ausgabe2:$ersetzen\n";
Last edited: 2010-03-22 17:17:51 +0100 (CET)
- pq
  
  2010-03-22 17:17
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  bitte das nächste mal nur noch einmal posten. habe die duplikate gelöscht.
  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
- +3 replies
- pq
  
  2010-03-22 17:21
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  welchen wert soll denn $ersetzen ausserhalb haben?
  du liest zeile für zeile, und in der schleife hat $ersetzen immer den wert der aktuellen zeile.
  wenn du nach der schleife noch einen wert darinhaben willst (eventuell den der letzten zeile?), musst du ihn in der schleife zwischenspeichern.
  in der letzten iteration liefert ja <ERSETZEN> undef, weshalb $ersetzen dadurch auch undef wird. nur durch das undef wird ja die schleife überhaupt beendet.
  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
  - +2 replies
  - niladmirari
    
    2010-03-23 14:30
    
    User since
    2010-03-10
    4 Artikel
    BenutzerIn
    
    Hallo ,
    Danke für den Hinweis.
    Habe meinen Fehler entdeckt.
    - pq
      
      2010-03-23 14:36
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      möchtest du den freundlicherweise für die nachwelt noch hier publizieren?
      wenn du selbst auf der suche bist, freust du dich sicher auch darüber, wenn andere nicht nur schreiben "habs gelöst", sondern auch wie.
      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 2010-03-22 17:11.