2 zusammenhängende Zeilen lesen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-12-19 22:43:19
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]19356[/thread]

submit to reddit

2 zusammenhängende Zeilen lesen [gelöst]

[gelöst]

Tags: perl5 datei Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+3 replies
picard

2014-10-31 13:56
User since
2014-10-31
2 Artikel
BenutzerIn
Ich habe ein Problem ähnlich dem in Thread "Nächste Zeile" auslesen.
Leider gibt es für mein Problem kein passendes Modul ;-)

Ich möchte eine Datei zeilenweise lesen und wenn eine Zeile einen bestimmten Begriff enthält auch die folgende Zeile lesen.
Die Schleife soll dann fortgesetzt werden, wobei es egal wäre, ob diese "Extrazeile" aus der if-Abfrage übersprungen wird oder nochmal gelesen wird.

Ein zweites zeile=$_; innerhalb einer if-Abfrage funktioniert leider nicht.

Also im Prinzip soetwas:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

while(<SOURCEFILE>) { $zeile = $_; if ($zeile =~ m/^Input/) { ... $folgezeile = $_; ... } }
Hat jemand eine Idee?

modedit Editiert von GwenDragon: Threadlink hinzu
Last edited: 2014-10-31 14:00:28 +0100 (CET)
- +2 replies
- GwenDragon
  
  2014-10-31 14:02
  
  User since
  2005-01-17
  14757 Artikel
  Admin1
  
  $_ liefert auch nur das aktuelle.
  
  Du wolltest wohl $folgezeile = <SOURCEFILE>; weiter einlesen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - picard
    
    2014-10-31 14:39
    
    User since
    2014-10-31
    2 Artikel
    BenutzerIn
    
    Klasse, funktioniert!
    Bei meinen ganzen Recherchen bin ich nicht über diese einfache Lösung gestolpert.
    
    Vielen Dank!
    picard

View all threads created 2014-10-31 13:56.