nicht angemeldet
Hi Leute,
kann mir jemand mal verraten wieso ich mit diesem Script (soll eine html auslesen und bei <br><br> splitten) in $Ergebnis[0] die ganze html seite habe und nicht nur den ersten teil nach dem splitt!? in
$Ergebnis[1] steht dann garnichts...
require "cgi-lib.pl";
&parse_form;
$old = "e:/Xitami/webpages/eintrag/loeschen.htm";
$new =">e:/Xitami/webpages/eintrag/eintrag2.txt";
open (OLDFILE, $old) or die "Datei existiert nicht\n";
open (NEWFILE, $new);
while (<OLDFILE>)
{
$Satz = $_;
chomp($Satz);
@Ergebnis = split(/<BR><BR>/, $Satz);
print NEWFILE $Ergebnis[0];
}
close (OLDFILE);
close (NEWFILE);
Die HTML-Datei aus der gelesen werden soll sieht so aus:
<HTML>
<HEAD>
<TITLE>Caravan Auto</TITLE>
<HEAD>
<BODY bgcolor=dcdcb4>
<table width=450 border=1><tr><td>
<img src=e:/Xitami/webpages/eintrag/img/auto01.gif >
</td>
<td>
Test, dieser
</td></tr></table>
<form method=get action=/cgi-bin/loesch.cgi>
<INPUT NAME="loeschen" TYPE=RADIO ALIGN=left VALUE="1">Datensatz löschen?
<INPUT type=submit value=Senden>
</form>
<BR><BR>
<HTML>
<HEAD>
<TITLE>Caravan Auto</TITLE>
<HEAD>
<BODY bgcolor=dcdcb4>
<table width=450 border=1><tr><td>
<img src=e:/Xitami/webpages/eintrag/img/auto01.gif >
</td>
<td>
Noch ein Test
</td></tr></table>
<form method=get action=/cgi-bin/loesch.cgi>
<INPUT NAME="loeschen" TYPE=RADIO ALIGN=left VALUE="2">Datensatz löschen?
<INPUT type=submit value=Senden>
</form>
<BR><BR>
<HTML>
<HEAD>
<TITLE>Caravan Auto</TITLE>
<HEAD>
<BODY bgcolor=dcdcb4>
<table width=450 border=1><tr><td>
<img src=e:/Xitami/webpages/eintrag/img/auto02.gif >
</td>
<td>
Ein letzter Test
</td></tr></table>
<form method=get action=/cgi-bin/loesch.cgi>
<INPUT NAME="loeschen" TYPE=RADIO ALIGN=left VALUE="3">Datensatz löschen?
<INPUT type=submit value=Senden>
</form>
<BR><BR>
etc....