txt datei auslesen und marken benutzten.

[Marcus Vieß]

Ich habe ein kleines Script gefummelt welches mir helfen soll eine DVD Horrorfilmreview Seite aufzubauen.

Das Script soll aus einer .txt datei bestimmte Marken finden und diese dann in einen forgefertigtes Template schreiben. Ich zeige besser mal.

open(INFO, '$filename0$endung') or die '\nKonnte Datei $file nicht zum Lesen öffnen\n';
@lines = <INFO>;# in Array einlesen
close(INFO);# File schliessen

die .txt Datei sieht z.B. folgendermaßen aus (incl. Returns etc)

FILM
Film ist ganz gut<br>
Aber zu langatmig.
FILM

BILD
Bild ist ganz ok.
BILD

jetzt soll mir das script die Sprungmarken finden und nur das ausgeben was in den Sprungmarken steht. Also so was wie :

print @lines >>FILM;

jetzt sollte nur alles innerhalb FILM zu sehen sein also:

Film ist ganz gut
Aber zu langatmig.

Klappt natürlich nicht, weil ich nicht weiß wie man das richtig macht. Vielleicht kann ja einer helfen.
Das mit den Marken soll so sein, damit auch andere User mir Reviews schreiben können. (Ist ja ziemlich einfach so wie es zu sehen ist)