comment on

I am trying to upload files to my virtual server hosted with ipowerweb. I tried calling on two different scripts (not at the same time). One I copied online and the other from a book. They both work ok, as in the file appears as it was named, except that the file is blank, zero bytes, no content! What can I do to see it write the file properly?

#MAIN HTML start#
<FORM ENCTYPE="multipart/form-data" ACTION="upload.pl" METHOD="get">
<p>Please select a file to upload: <br />
<INPUT TYPE="FILE" NAME="file">
<p><INPUT TYPE="submit"></FORM>';
#MAIN HTML end#

here's my action file...

######FIRST ATTEMPT##########################
##HEADER##
$dir = "tempfolder";
$file = param('file');
$file=~m/^.*(\\|\/)(.*)/;
$name = $2;
open(LOCAL, ">$dir/$name") or die $!;
while(<$name>) {
  print LOCAL $_; }
print 'Succeeded in your upload';
######END###########################
######SECOND PROG.###########################
##HEADER##
$dir = "tempfolder";
$file = param('file');
if ($file =~ /.*[\/\\](.*)/) {
 $out_file = $1; }
 else { $out_file = $file; }
$counter = 0;
 while (-e "$dir/$out_file") {
 $counter++;
 $out_file =~ s/^(.+)\.(.+)$/$1$counter\.$2/; }
print "$file<br />\n";
open (OFILE, "> $dir/$out_file");
while ($bytesread = read ($file, $buffer, 1024)) {
 print OFILE $buffer; }
close $file;
close OFILE;
print 'Succeeded in your upload';
######END###########################
[download]

Thanks for your help

In reply to Uploading a file by JayBee

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.


Do you know where your variables are?
	PerlMonks