upload file from perl script

[lostiamoxdendo]

#!/perl

use strict;
use warnings;
use Socket qwDEFAULT :crlf);
use IO::Socket::INET;

my $content;
my $file = "file.zip";
my $size = (-s $file);
my $target = '

http://www.yoursite.it/cgi-bin/upload.cgi'

my $socket = IO::Socket::INET->new(
PeerAddr => '

http://www.yoursite.it/',

PeerPort => '80',
Proto => 'tcp',
Type => SOCK_STREAM ) or die "Couldn't connect! $!\n";


syswrite $socket, "POST $target HTTP/1.0".$CRLF;
syswrite $socket, "Accept: */*".$CRLF;
syswrite $socket, "Accept-Language: en".$CRLF;
syswrite $socket, "Connection: Keep-Alive".$CRLF;
syswrite $socket, "User-Agent: Mozilla/4.0".$CRLF;
# syswrite $socket, "Content-type: application/octet-stream".$CRLF;
syswrite $socket, "Content-length: $size".$CRLF;
syswrite $socket, "$CRLF";

open(READ, "<$file") || die "$!\n";
binmode(READ);
while( read(READ,$content,4096) )
{ syswrite $socket, $content; }
close(READ);

print <$socket>;
close $socket;

Hi! I’m Italian and I’d like to make the upload of a file from Client to Server using Perl script written below, but I can’t make it work because the server tells me no file has been selected from the form

 

[KevinADC]

you probably want to use a form to select a file from the users hard drive to upload. What you have is:

my $file = "file.zip";

try putting in the path to a real file on your hard drive and see if that works for testing:

my $file = "c:/path/to/file.zip";

 

[lostiamoxdendo]

I've tried what you told me, but it doesn't work

file.zip is in server 1... I've got to upload automatically on server 2 (

http://www.yoursite.it/cgi-bin/upload.cgi)

Without the use of Html Form, all through this Perl script

 

[max1x]

Without the use of HTML Form, you could use the FTP module and just move the file from one server to second.