Sletning af fil

Okay... jeg har det hersens nyhedsscript, der kan tilføje og slette nyheder.

Men da jeg har modificeret den ud i det uendelige, har jeg fået problemer, når jeg skal slette mere end een fil.

Følgende kode går ind i en alm. tekstfil og sletter et linie:

open(GW,"$BaseDir/$DataFile");
    @lines = <GW>;
    close GW;
   
    open (GB,">$BaseDir/$DataFile");
    foreach $line (@lines) {
        chop $line;
        @TempData = split (/\t/, $line);
       
        if ($TempData[1] ne "$in{'Filename'}") {
            print GB "$line\n";
        }
    }
    close GB;

$Datafile ser ud som følger:

Testoverskrift    Detteerenoverskrift.shtml
Testoverskrift2    Detteerenoverskrift2.shtml

-------------------------------------------

Kommandoen kører fint. Har man bedt den om at slette f.eks. "Testoverskrift" går den ind og finder linien, hvor Detteerenoverskrift.shtml (Filename) og sletter linien.

Nu har jeg imidlertid flere filer, der alle skal have slettet den linie, hvor teksten Detteerenoverskrift.shtml findes.

Derfor har jeg lavet en variant:

open(GW2,"$BaseDir/$DataFile2");
    @lines2 = <GW2>;
    close GW2;
   
    open (GB2,">$BaseDir/$DataFile2");
    foreach $line2 (@lines2) {
        chop $line2;
        @TempData2 = split (/\t/, $line2);
       
        if ($TempData2[1] ne "$in{'Filename'}") {
            print GB2 "$line2\n";
        }
    }
    close GB2;

Datafile2 ser ud som følger:

  |nyheder/Detteerenoverskrift.shtml  |1B8DB9|ffffff|Testoverskrift
  |nyheder/Detteerenoverskrift2.shtml  |1B8DB9|ffffff|Testoverskrift2

Men her sletter den IKKE "Detteerenoverskrift.shtml"-linien. Hvorfor ikke?