sredhar8 has asked for the wisdom of the Perl Monks concerning the following question:
I have written the code for CGI from for uploading a file and saving it in the current directory but its not working (no error messages but wont do anything) ..any help??
print start_multipart_form(),"Enter File :: ",filefield('filename','', +50),br,,submit('submit','Upload'),endform; if(my $file= param('filename')) { my $tmpFile = tmpFileName($file); } open (WQ,">>outdata.txt"); while(<$file>) { print WQ; } close(WQ);
Thank you...
Newbiemonk
20030206 Edit by Corion : Added code tags
Back to
Seekers of Perl Wisdom