Bild hochladen

[Alain]

Hallo ,

Hier sollte man besser die Methode upload() verwenden, die von neueren Versionen des CGI-Modules bereitgestellt wird. Diese erzeugt im Gegensatz zu param() ein gültiges Datei-Handle und kann auch dazu benutzt werden, um zu testen, ob der Upload erfolgreich war.

z.B. so:

my $q = new CGI;

use File::Basename;

Mit File::Basename kann aus der lokalen Datei und dem lokalen Pfad

der Dateiname ermittelt werden, so dass der Benutzer diesen

beim Upload nicht extra eingeben muss

use strict;

Weitere globale Varaiblen definieren

my($bytesread,$sum,$buffer) = undef;

den HTTP Header zum Browser senden, using CGI Object:

print $q->header;

Die folgende Kontrollstruktur bestimmt den Ablauf des CGI Scripts

if($q->param){
upload();
}
else
{
form();
}

exit;

Viele Grüße
Alain