Bild uploaden geht nicht

[Jörk]

hallo,

bis jetzt hab ich damit noch nie was zu tun gehabt, aber jetzt muss ich ein bild über ein formular uploaden.

hier mein programmcode:

was ist da falsch?

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

my $q = new CGI;

my $file = $q->param('pic');
my $data;

open(FH, ">1234567.gif") or die $!;

#binmode $file;
#binmode FH;

while(read($file,$data,1024)) {
print FH $_;
}

close FH;

print "Content-type: text/html\n\n";
print "<h1>Die Datei $file wurde erfolgreich hochgeladen.</h1>\n";
print "Die Datei $file wurde erfolgreich auf dem Server gespeichert.\n";

[Rolf Rost]

hallo,

my $file = $q->param('pic');

ok, zur info:
in $file stehen 2 Dinge
1. der dateiname
2. ist $file ein handler den du mit der read() funktion auslesen musst. Dann klappts auch mit dem upload.

Wichtig: geht nur mit post und dem richtigem enctype
<form action="$ENV{'SCRIPT_NAME'}" method="post" enctype="multipart/form-data">

Gruss, Rolf