Sletning af fil part Deux
Man troede det ej muligt... Netop som jeg mente, at nu havde jeg styr på det "#¤%&/( sletning af linier i en fil, driller det igen.Det forrige spørgsmål var: http://www.eksperten.dk/spm.asp?id=19795
Okay, Erik, det her spørgsmål er nok mest til dig! :)
Filen, den skal slette en linie fra, er:
<a href="nyheder/test.shtml">test</a><br><br>
Som det bemærkes, ER der sat en tabulering efter <a, så scriptet kan splitte linierne op.
Koden er den Erik lavede:
print "<html><head><title>Hello</title></head><body>\n";
print $query->p("Hello");
open(GW2,"forsideoverskrifter.txt") || die('Doe');
@lines2 = <GW2>;
close GW2;
print "<b>Før:</b><br>\n";
foreach $line2 (@lines2) {
print "$line2<br>";
}
if ($f ne "") {
print "<b>Efter:</b><br>\n";
open (GB2,">forsideoverskrifter2.txt");
foreach $line2 (@lines2) {
@TempData2 = split (/\t/, $line2);
if (!($TempData2[1] =~ /$f$/)) {
print "$line2<br>";
print GB2 $line2;
}
}
close(GB2);
}
print "<br><br><form>Slet: <input type=\"text\" name=\"f\"><input type=\"submit\"></form>";
print "</body></html>\n";
Det eneste jeg har ændret er $TempData2[0] til $TempData2[1] for at den skal reagere på anden halvdel af linien.
Scriptet kan ses i funktion på:
http://www.nvr.dk/cgi-bin/nvr.pl
Problemet er bare, at den ikke vil slette noget!!!
