Bild uploaden: Wie lade ich ein Bild mit Perl hoch ? - #79435 (Allgemeines zu Perl)

BrownWolf

2003-08-25 17:26

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

So hab ichs auch nicht gemeint =/

Edit: Hallo ? Hab ich was falsches geschrieben ?
Wenn ja, dann tut es mir leid.

Mein Code sieht jetzt so aus:

Code (perl): (dl )

if($form{upload} ne "") {
my $filehandle = $cgi->param('upload');
my $size = -s $filehandle;
$size /= 1024;
if($size < 80) {
open(DAT,">$ENV{DOCUMENT_ROOT}/$config{pfad}/images/$read[0].gif") || die $!;
binmode(DAT);
binmode $filehandle;
local $/ = undef;
my $data;
while(<$filehandle>) {
print DAT $data;
}
close(DAT);
print "$language{field73}<br>"; # Bild upgeloadet
} else {
print "$language{field72}<br>"; # Error: Bild zu groß
}

Gehts so auch ? :)
Nochmal Edit: LOL da hab ich mir selbst ins Bein geschossen.
Es muss heissen:

Code (perl): (dl )

1
2
3

while($data = <$filehandle>) {
print DAT $data;
}

Aber nun wird trotzdem ne Datei angelegt, zwar mit dem Inhalt des Bildes, aber keine .gif ?\n\n

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;