Gossamer Forum: General: Perl Programming: file uploads

Sep 10, 2006, 7:25 PM

akastarlight

Novice (11 posts)

Sep 10, 2006, 7:25 PM

Post #1 of 3

Shortcut

file uploads

Hi:

Non Image
Can anyone show me a snippet of code to do a file upload in perl

Image
Also how to upload and modify the width and height of an image that is uploaded.

Sep 11, 2006, 7:29 AM

jdgamble

Enthusiast (700 posts)

Sep 11, 2006, 7:29 AM

Post #2 of 3

Shortcut

Re: [akastarlight] file uploads In reply to

Although links has some features that do this automatically (if that is what you use) the basic syntax is this:

For your html page:

Code:

 <form action="path to your perl file" method="post"> 

<input type=file name=uploadfile size=30> 
<input type=submit> 
</form>

For the perl file:

Code:

 
my $file = $IN->param('uploadfile'); 
open (FILE, ">..path/to/save") or die "error"; 
my ($data, $length, $chunk); 
while ($chunk = read ($file, $data, 1024)) { 
print FILE $data; 
$length += $chunk; 
if ($length > 51200) { 
print "file too big message."; 
exit; 
} 
} 
close (FILE);

Hope this helps,

- Jonathan

Sep 18, 2006, 9:17 AM

mkp

User (83 posts)

Sep 18, 2006, 9:17 AM

Post #3 of 3

Shortcut

Re: [jdgamble] file uploads In reply to

The maximum POST size can also be specified. That is usually a better way to handle it. See CGI in perldoc.

There are a bunch of image related modules that will do all sorts of things with images. Which you want depends on what you have installed and what you need. Look on search.cpan.org.