dairaen: Löschen?

Beitrag lesen

SELF-Forum

Löschen?

dairaen
– Informationen zu den Bewertungsregeln

Hi, ja so ähnlich meine ich das. Allerdings kenne ich die genaue Eingabe nicht. Ich weiß ja leider nicht welchen text der Kunde eingibt. Mein KuddelMuddel sieht so aus (und läuft nicht!):
require "cgi-lib.pl";
&parse_form;

$old = "<e:/Xitami/webpages/eintrag/eintrag.txt";
$new = ">e:/Xitami/webpages/eintrag/autos.htm";
open(INFILE, $old) or die "Datei existiert nicht!";
open(NEW, $new);

while (<INFILE>)
{
$all = $_;
@lines = split(/!!/, $all);
$all = '';

if ($in{'löschen'} == '1')   
{

$lines[0] = '';
  $lines[1] = '';
}
if ($in{'löschen'} == '2')
{
  $lines[1] = '';
  $lines[2] = '';
}
if ($in{'löschen'} == '3')
{
  $lines[3] = '';
  $lines[4] = '';
}

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";   
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(INFILE);
close(NEW);

Wie gesagt, er soll die alte Datei Leeren und eine neue erzeugen in der der zu löschende Eintrag nicht mehr vorhanden ist.

Beitrag melden
–
Informationen zu den Bewertungsregeln