Teile einer Liste in Datei ausgeben

[Marko]

Hallo Leute,

ich suche eine elegante Lösung für folgendes Problem:

Eine Datei mit unbekannter Zeilenanzahl wird geöffnet.
Die Zeilen 1-11 in eine zweite Datei geschrieben.
Zeilen 12-27 übersprungen
Der Rest der Zeilen in die zweite Datei geschrieben.

Ich habe jetzt die Erste Datei in eine Liste eingelesen, wie kann ich nun angeben, daß die Zeilen 12-27 ausgelassen werden:

for(@zeilen)
  {  
   print MAIL;
}

???

Schon mal vielen Dank

Marko

[Rolf]

Hallo Leute,

ich suche eine elegante Lösung für folgendes Problem:

Eine Datei mit unbekannter Zeilenanzahl wird geöffnet.
Die Zeilen 1-11 in eine zweite Datei geschrieben.
Zeilen 12-27 übersprungen
Der Rest der Zeilen in die zweite Datei geschrieben.

Ich habe jetzt die Erste Datei in eine Liste eingelesen, wie kann ich nun angeben, daß die Zeilen 12-27 ausgelassen werden:

»»  for(@zeilen)

{  
   print MAIL;

»»  }

???

Schon mal vielen Dank

Marko

Hallo,

wenn Du die Datei mit Perl zeilenweise in die Liste einlesen möchtest, so nutze doch einfach die vordefinierte Variable "$.", die beinhaltet die aktuelle Zeilennummer. So kannst Du von Dir bestimmte Zeilen vom Einlesen ausschließen.

Viele Grüße, Rolf

[Thomas Hofmann]

Hallo Leute,

ich suche eine elegante Lösung für folgendes Problem:

Eine Datei mit unbekannter Zeilenanzahl wird geöffnet.
Die Zeilen 1-11 in eine zweite Datei geschrieben.
Zeilen 12-27 übersprungen
Der Rest der Zeilen in die zweite Datei geschrieben.

Ich habe jetzt die Erste Datei in eine Liste eingelesen, wie kann ich nun angeben, daß die Zeilen 12-27 ausgelassen werden:

»»  for(@zeilen)

{  
   print MAIL;

»»  }

???

Schon mal vielen Dank

Marko

Hallo,

for($i=0;@zeilen;$i++){
   if($i<12$i>27)print MAIL;
}

so sollte es gehen. Wenn zeilen mit 0 anfängt.

Gruß Thomas