nicht angemeldet
Also, noch ein Versuch (andere Nachrichten von mir sind weiter unten). Ich hab jetzt einen Neuen Versuch gestartet, komme aber (mal wieder nicht weiter). Dieses Script soll (immernoch) Einträge aus txt Dateien löschen, die ein User über den Browser mit FORM bestimmt.
Es gibt 2 txt Dateien
image.txt:
auto01.gif!!
auto02.gif!! (usw.=
text.txt
Schönes Auto bla bla bla!!
Noch eins bla bla bla!!
dieses Script ist nun ein anderer Versuch, allerdings komme ich in der FOR Schleife nicht weiter:
#!/usr/bin/perl
Script zum löschen von Einträgen in der eintrag.txt
um einzelne Elemente aus der HTML Datei zu entfernen
require "cgi-lib.pl";
&parse_form;
$image = "<e:/Xitami/webpages/eintrag/image.txt";
$text = "<e:/Xitami/webpages/eintrag/text.txt";
$new = ">e:/Xitami/webpages/eintrag/autos.htm";
open(IMAGE_TXT, $image) or die "Datei existiert nicht!"; # öffnen der image.txt
open(TEXT_TXT, $text) or die "Datei existiert nicht!"; # öffnen der text.txt
open(NEW, $new); # öffnen der autos.htm
$loesch = $in{'löschen'}; # $loesch den Wert des FORM zuordnen
$j = 0; # $j auf null setzten
$length = 0; # Variable für den i< Zähler initialisieren
while (IMAGE_TXT)
{
$all_image= $_; # Inhalt von image.txt einlesen
@anzahl_image = split(/!!/, $all_image); # nach jedem !! spliten
$length = $length +1; # für jeden split lenght um 1 erhöhen
}
while (TEXT_TXT)
{
$all_text = $_;
@anzahl_txt = split(/!!/, $all_text);
}
Löschvorgang
for ($i=0;$i<$length;$i+=1)
{
}
print NEW "<HTML>\n";
print NEW "<HEAD>\n";
print NEW "<TITLE>Caravan Auto</TITLE>\n";
print NEW "<HEAD>\n";
print NEW "<BODY bgcolor=dcdcb4>\n"; # Keine "" in den TAGS verwenden!!!
print NEW "<table width=450 border=1><tr><td>\n";
print NEW "<img src=e:/Xitami/webpages/eintrag/img/$lines[0]> \n";
print NEW "</td>\n";
print NEW "<td>\n";
print NEW " $lines[1] \n";
print NEW "</td></tr></table>\n";
}
close(IMAGE_TXT);
close(TEXT_TXT);
close(NEW);
Danke im voraus!