Struppi: Bild vom Server löschen

Beitrag lesen

SELF-Forum

Bild vom Server löschen

Struppi
– Informationen zu den Bewertungsregeln

Hallo,

ich habe folgendes Problem:

Jetzt möchte ich den Wert des Feldes $image an das folgende CGI-Script übergeben (...input type="hidden" usw) und diese Datei über das folgende Perl-Script vom Server löschen, doch leider hab ich irgendwo einen Denkfehler, es wird keine Variable an das PerlScript übergeben?!

***************

#!/usr/bin/perl

use strict;
use warnings;

gehört hier noch hin.

CGI Modul nutzen

use CGI;

Parametervariable festlegen

$a = new CGI;

Aussagekräftiger Variabelname, nebenbei ist $a und $b bereits reserviert.

$pfad = "/home/www/html/bilder";
opendir(DIR,"$pfad");

opendir(DIR,"$pfad") || die "Kann $pfad nicht öffnen, weil: $!";

@files = readdir(DIR);
closedir(DIR);

$test1= CGI::param('$bild');
$test2= $a->param("$bild");

und hier ist der Fehler (den du mit Hilfe von strict gefunden hättest)

Was steht den $bild? Kann es sein, das du "bild" meinst?

$test3= "$bild";

unlink("$pfad/$test1");
unlink("$pfad/$test2");
unlink("$pfad/$test3");

auch hier solltest du den Erfolg checken

unlink("$pfad/$test3") || print "Kann $pfad/$test3 nicht löschen, weil $!";

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Test-Ausgabe</title></head><body>\n";
print "$test1, $test2, $test3,\n";
print "</body></html>\n";

Erst benutzt du CGI und dann wieder nicht?

print CGI::header(), CGI::start_html(-title => 'Test-Ausgabe');

Struppi.

Beitrag melden
–
Informationen zu den Bewertungsregeln