Mit FileHandle jeweils nur eine Zeile auslesen (Allgemeines zu Perl)

[thread]15151[/thread]

Mit FileHandle jeweils nur eine Zeile auslesen

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
Great__perl

2010-06-16 09:39
User since
2009-12-28
38 Artikel
BenutzerIn
hallo zusammen

Ich habe ein Filehandle erstellt das Daten aus einem file ausgibt im Im Momment sieht sie so aus:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

if( open(FH, $datei) ) { print "Datei gefunden!\n"; while ( <FH> ) { print $_; } } else { die "Error: couldn't open file '$datei': $!\n"; } close FH;
Mit print $_; wird das ganze file ausgegeben, meine Frage ist wie kann ich mache das nur jeweils eine Zeile ausgegeben wird.

Vielen dank
- gelöscht 2010-06-16 09:44
- pq
  
  2010-06-16 10:02
  User since
  2003-08-04
  12208 Artikel
  Admin1
  2010-06-16T07:39:23 Great__perl
  Mit print $_; wird das ganze file ausgegeben, meine Frage ist wie kann ich mache das nur jeweils eine Zeile ausgegeben wird.
  
  print gibt das aus, was in $_ steht.
  wenn in $_ eine zeile steht, gibt print auch nur diese eine zeile aus.
  die while-schleife iteriert aber nunmal über alle zeilen, was ja auch sehr nützlich ist.
  
  also deine frage ist, wie du genau eine zeile aus der datei liest? also die erste zeile vermutlich?
  dann darfst du <FH> nur einmal ausführen:
  
  Code (perl): (dl )
  
  1 2
  
  my $line = <FH>; print $line;
  
  bitte auch mal WasIsteinLexikalischerFileHandle lesen. bareword-filehandles sind out ;-)
  
  übrigens könnte es helfen, deine programme besser zu lesen, wenn du sie richtig einrückst.
  deine einrückung ist mal 5 zeichen, mal 8, dann wieder gar keine. das erschwert den überblick, wo eine schleife zu ende ist und welcher code zu welcher schleife bzw. if-abfrage gehört.
  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
- Sven_123
  
  2010-06-16 10:02
  
  User since
  2010-06-01
  120 Artikel
  BenutzerIn
  
  Das ganze wird in einzelnen Zeilen ausgegeben, nur halt von Anfang bis zum Ende der Datei, wodurch danach die ganze Datei bei dir auf dem Bildschirm steht...wenn du z.B. nur die erste Zeile ausgeben möchtest, könntest du nach dein "print $_;" ein "last;" schreiben, damit die while-Schleife nach dem ersten Durchlauf abgebrochen wird.
  Wenn du irgendetwas mit den Zeilen anstellen willst (bei "jeweils" geh ich mal davon aus, dass es dir nicht nur um eine bestimmte Zeile geht), müsstest du das einfach in die while-Schleife schreiben...
  Oder meinst du was anderes...?
- topeg
  
  2010-06-16 10:07
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Das Bezweifele ich ein wenig, wenn der Zeilentrenner nicht anders ist als der vom System (Winows:"\x0D\x0A", Linux/Unix:"\x0A")
  
  Schau mal genau nach:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; my $datei='test.txt'; if( open(my $fh, '<', $datei) ) { print "Datei gefunden!\n"; while(my $line= <$fh> ) { print "ZEILE $.: $line"; } close($fh); } else { die "Error: couldn't open file '$datei': $!\n"; }
  
  Sollte das Zeilenende anders sein als du es erwartest, kannst du es lokal mit
  local $/='<art des zeiendendes>' neu setzen.

View all threads created 2010-06-16 09:39.