Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

upload binary file (image file) to Web using Perl

Posted on 2000-02-16
3
226 Views
Last Modified: 2008-02-20
Did anybody know where can find perl sample program for uploading image file (binary file) to web site through Web page?
0
Comment
Question by:jamestse
  • 2
3 Comments
 
LVL 5

Expert Comment

by:PC_User321
ID: 2530689
0
 
LVL 3

Accepted Solution

by:
guadalupe earned 300 total points
ID: 2531127
This will work as long as you have access to the dir "tmp" if not just edit to a dir you have access to.  And you will need the module CGI.pm


##HTML for (upload)
{

}
<form ENCTYPE="multipart/form-data" action="/cgi-bin/upload.pl" Method=POST>
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($file_path,$data,1024)){
  $size+=$bytesread;
  print MYFILE $data;
}
close(MYFILE);
close($file_path);

`chmod 777 /tmp/$upload_file`;
print $size;

print "Done Reading";
0
 
LVL 3

Expert Comment

by:guadalupe
ID: 2536522
So how did that go...
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
how to extract data from a table into a fixed length file 10 59
perl script to count sepecial characters in a file 7 147
Perl 101 11 81
.properties file to call function/method 9 61
Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads),  installed and started the daemon, and had a console window open. After an hour or two of playing at the command …
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

789 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question