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
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.