Hallo!
Zwangsläufig muss die Trennung geändert werden - sie besteht jetzt aus einer Zeile von 65 mal "="
dein Script hab ich versucht abzuändern - nur greift es nicht ...
Code:
#!/usr/bin/perl
use strict;
use warnings;
my $AusgabeDateiPrefix = "Ausgabe_";
my $Index = 0;
my $Trennzeichen="===";
my $Trennzaehler=0;
while(<>)
{
if($_ eq $Trennzeichen) #Koennte Teil einer Trennsequenz sein
{
$Trennzaehler++;
}
if($Trennzaehler == 1 && $_ ne $Trennzeichen) #War nicht Teil der Trennsequenz...
{
$Trennzaehler = 0;
}
if($Trennzaehler == 2) # War eine Trennsequenz
{
$Trennzaehler=0;
$Index++;
}
if($Trennzaehler == 0) # Wenn Nutzdaten, dann wegschreiben...
{
open(FH,">>$AusgabeDateiPrefix".$Index);
print FH $_;
close(FH);
}
}
Ich hab auch so ein bißchen rumgespielt - ich schaff es nicht, die Reihe "=" abzupassen ... die Ausgabedatei ist mit der Eingabedatei identisch.
Im Anhang eine Testdatei
Lesezeichen