Dairaen: Löschen von Einträgen:Noch immer nicht ganz

SELF-Forum

Löschen von Einträgen:Noch immer nicht ganz

Dairaen
– Informationen zu den Bewertungsregeln

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!

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. Löschen von Einträgen:Noch immer nicht ganz

    Cheatah
    – Informationen zu den Bewertungsregeln

    Hi,

    while (IMAGE_TXT)

    while (<IMAGE_TXT>)

    {

    »»  $all_image= $_;  # Inhalt von image.txt einlesen
    »»  @anzahl_image = split(/!!/, $all_image); # nach jedem !! spliten

    Hier wird mit jeder Zeile aus <IMAGE_TXT> das Array neu initialisiert. Das bringt also nichts.

    while (TEXT_TXT)

    while (<TEXT_TXT>)

    {

    »»  $all_text = $_;
    »»  @anzahl_txt = split(/!!/, $all_text);

    Wie oben.

    for ($i=0;$i<$length;$i+=1)
    {

    Ja, und nu?

    }

    Überlege Dir, welches Kriterium sagt, ob die Zeile gespeichert werden soll oder ob nicht. Das schreibst Du dann in Perl.

    Cheatah

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln