Splitten eines Files in mehrere

[Cruz]

Das File ist im Format

Artikel1
###_cut_here_###
Artikel2
###_cut_here_###
Artikel3
usw...

Und nun soll jeweils Artikel1, Artikel2, Artikel3 usw in ein eigenes File(einfach durchnummerierte files) (Ohne den ##_cut.. Trenner)

Wie stelle ich sowas an mit perl?

So geht das:

DATEI EINLESEN

open (FILE, "<basisdatei.txt");
@raw_array=<FILE>;
close(FILE);

$i=0;
for (@raw_array) {

Zeilen in einen neuen array packen

push (@print_to_file,$_);

Wenn die Zeile _cut_here_ enthält

if (/_cut_here_/) {

erstelle eine datei die $i.txt heißt

open (NEWFILE, ">$i.txt");

schreib die neue array in die neue datei

foreach (@print_to_file) {print;}

#datei zu
close(NEWFILE);

neue array entleeren

@print_to_file="";

$i erhöhen

$i++;

} #ende if

} #ende for