Thread Bild uploaden: Wie lade ich ein Bild mit Perl hoch ?
(29 answers)
Opened by BrownWolf at 2003-08-25 00:26
versuch es mal so:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 open(DAT,">$ENV{DOCUMENT_ROOT}/idcards/images/$read[0].gif") || die $!; binmode DAT; binmode $form{upload}; my $data; while(read param("upload"), $data, 1024) { print DAT $data; } close(DAT); |