Either do a Super Search for file upload problem or Read The Friendly Manual in the form of the CGI::Simple documentation (better than the CGI docs although the interface is the same). In the docs I have explained it in minute detail, please take the time to read them, do it as shown, and it will work.
You probably want this, which is nothing like your code. You need to read from the temporary upload file handle and write it to you output file. If there is no 'filename' param we show the upload html. >file means overwite (make new file if does not exist) >>file means append to the file BTW:
#!/usr/bin/perl
use CGI ':standard';
if ( param('filename') ) {
my $input_filehandle = upload( 'filename' );
open WQ, ">outdata.txt" or die_nice("Can't open outdata.txt, Perl
+says $!");
print WQ $_ while <$input_filehandle>;
close WQ;
print header(), "Uploaded OK";
}
else {
print
header(),
start_multipart_form(),
"Enter File :",
filefield('filename','',50),
br,
submit('submit','Upload'),
endform;
}
sub die_nice { print header(), shift }
cheers
tachyon
s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print
|