HTML Datei abschneiden

[CK1]

Hi,

Hie kann ich das Ende einer HTML Datei abschneiden? Ich möche es
genau nach dem Platzhalter <!-- END --> abschneiden?

Also, lies die Datei in einen Array:

open(DAT,"<html_datei.htm");
@inhalt = <DAT>;
close(DAT);

Dann zeilenweise durchsuchen, ob <!-- END --> darin enthalten ist:

my $i = 0;
my $vorhanden = 0;

for($i=0;$i<=$#inhalt;$i++)
{
if (index($inhalt[$i], "<!-- END -->") <> -1)
  {
  $vorhanden = 1;
  break;
  }
}

if ($vorhanden)
{
$inhalt[$i] = substr(0,index($inhalt[$i], "<!-- END -->"));
} else {
print "Dateiende leider nicht gefunden!";
}

my $j = 0;
for($j=0; $j<=$i;$j++)
{
print $inhalt[$j];
}

Das gibt die HTML-Datei bis <!-- END --> aus.

mfg
CK1