nicht angemeldet
Hallo,
hab da mal wieder ne Frage, und zwar ich wollte ein Bildermanagement in Perl schreiben. Wenn ich nun ein Bild hochladen will, dann geht das, wie man hier in diesem Code Schnipsel sieht ganz einfach:
#Der Gesamte Hash steht in $formdata
@parts = split /-----------------------------.{9}/, $formdata;
foreach (@parts) {
if ($_ =~ "Content-Type: image/") {
@wert = split /"Content-Type: image"/, $_ ;
@file = split /\n/, $_, 5;
while ($file[1] =~ /\/) { $file[1] =~ s/^.*\//; }
$file[1] =~ s/"//g;
chop $file[1];
$uploadfilename = $file[1];
chop $file[4]; chop $file[4];
$uploadfile = $file[4];
}
So weit sogut, "$uploadfile" wird nun in eine Datei geschrieben, das wars :)
Jetzt wollt ich aber nicht nur eine Datei hochladen, sondern gleich mehrere. Hat da vielleicht jemand kurz n kleinen Tipp, wie man sowas realisieren könnte?
Ps: für dieses Skript werden keine Module verwendet.
Besten Dank!
Mfg Stefan