JayBee has asked for the wisdom of the Perl Monks concerning the following question:
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?
Thanks for your help#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###########################
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Uploading a file
by JayBee (Scribe) on Oct 16, 2003 at 01:02 UTC | |
by jepri (Parson) on Oct 16, 2003 at 02:06 UTC | |
by iburrell (Chaplain) on Oct 16, 2003 at 21:18 UTC |
Back to
Seekers of Perl Wisdom