How to upload an Image file using perl scripting?

[prakharv]

Hi All,

I would like to upload a image file from my web page to the server using perl scripting.

Please, if any one knows regarding this or has the source code for the same, please help me out.

Any information on this topic will be appreciated.

Thanks And Regards,
Prakhar

[geek491]

#!C:/Perl/bin/perl
use CGI;
use DBI;

my $co = new CGI;
my $file_name;

if(!$co->param())
{

print $co->header();
print $co->start_html() ;
print $co->start_multipar t_form;
print $co->filefield(-name=>'filename ', -size=>30);
print $co->submit(-value=>'UPLOAD FILE');
print $co->end_form();

}
else
{
print $co->header();
print $co->start_html() ;
$file = $co->param('filenam e');
@data = <$file>;
print @data;
}
#attach_file();
#$path_name = $co->param('pathnam e');
#@temp=split(/\\/,$path_name);
#$file_name = pop(@temp);
#$server_path=' ./documents/'.$file_name;

#print "Content-Disposition: attachment; filename = $file_name\n\n" ;
#print $co->header('applic ation/x-octet-stream');

#$uploaded_file ='/cgi-bin/documents/'.$file_name;
#print "<a href=download.p l>$file_name</a>";
#print $co->redirect('atta ch.html');


sub attach_file
{
open(INFILE,"$p ath_name");
open (OUTFILE,">$ser ver_path");
binmode(INFILE) ;
binmode(OUTFILE );

while (read($path_nam e,$buffer,1024) )
{
print OUTFILE $buffer;
}
print "Successful ly attached....";
close (INFILE);
close (OUTFILE);
}


instead of writing the file to the browser write it some location.... it will be similar to uploading.

[KevinADC]

Search script archives such as www.hotscripts.com for "file uploader" scripts or some similar description.