Submit
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
We will never share this with anyone. Privacy Policy
Must be at least 4 characters long.
Join and Comment
By clicking you are agreeing to Experts Exchange's Terms of Use.
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
##HTML for (upload)
{
}
<form ENCTYPE="multipart/form-da
Attach:<input name="file" type="file">
<INPUT TYPE=SUBMIT>
</form>
#perl for upload
#!/usr/local/bin/perl
use CGI;
$query=new CGI;
$file_path = $query->param('file');
print $file_path,"\n";
$file_path =~ m!.*?!/?([^/]+);
$upload_file = $1;
print "Content-type: text/html\n\n";
`rm /tmp/$upload_file`;
open(MYFILE,"> /tmp/$upload_file") || die $!;
binmode MYFILE;
while($bytesread=read($fil
$size+=$bytesread;
print MYFILE $data;
}
close(MYFILE);
close($file_path);
`chmod 777 /tmp/$upload_file`;
print $size;
print "Done Reading";