note
AcidHawk
<p>There is no [cpan://Net::FTPServer] module for Windows. So if [FireBird34] is running on a MS platform s/he will not be able to use it easily.</p><p>Have a look at creating a listening socket on the server and a client piece that connects to that socket. </p><p>Below is some code I found (here at PerlMonks I think) that sets up a socket and transfers a file from the client.</p>
<readmore><p><b>Server</b>:-
<code>#!/usr/bin/perl
####################
# SEND FILE SERVER #
####################
use IO::Socket ;
use Data::Dumper;
my $port = $ARGV[0] || 6123 ;
my $save_dir = './files' ;
#############
# START SRV #
#############
if (! -d $save_dir) {
mkdir($save_dir,0755) ;
print "Save directory created: $save_dir\n" ;
}
my $server = IO::Socket::INET->new(
Listen => 5,
LocalAddr => 'localhost',
LocalPort => $port ,
Proto => 'tcp'
) or die "Can't create server socket: $!";
print "Server opened: localhost:$port\nWaiting clients...\n\n" ;
while( my $client = $server->accept ) {
print "\nNew client!\n" ;
my ($buffer,%data,$data_content) ;
my $buffer_size = 1 ;
while (1) {
if ( sysread($client, $buffer , $buffer_size) ) {
# print "$buffer\n";
if ($data{filename} !~ /#:#$/) {
print "Filename = $data{filename}\n";
$data{filename} .= $buffer ;
}
elsif ($data{filesize} !~ /_$/) { $data{filesize} .= $buffer ;}
elsif ( length($data_content) < $data{filesize}) {
if ($data{filesave} eq '') {
$data{filesave} = "$save_dir/$data{filename}" ;
$data{filesave} =~ s/#:#$// ;
$buffer_size = 1024*10 ;
if (-e $data{filesave}) { unlink ($data{filesave}) ;}
print "Saving: $data{filesave} ($data{filesize}bytes)\n" ;
}
open (FILENEW,">>$data{filesave}") ; binmode(FILENEW) ;
print FILENEW $buffer ;
close (FILENEW) ;
print "." ;
}
else {
print Dumper(%data);
last ;}
}
#print "OK\n\n" ;
}
}
#######
# END #
#######
</code></p><p><b>Client</b>:-
<code>#!/usr/bin/perl
####################
# SEND FILE CLIENT #
####################
use IO::Socket ;
#$bandwidth = 1024*5 ; # 5Kb/s
$bandwidth = 1024*1024 ; # 5Kb/s
&send_file( $ARGV[0] , $ARGV[1]||'localhost' , $ARGV[2]||6123 ) ;
exit;
#############
# SEND_FILE #
#############
sub send_file {
my ( $file , $host , $port ) = @_ ;
if (! -s $file) { die "ERROR! Can't find or blank file $file" ;}
my $file_size = -s $file ;
my ($file_name) = ( $file =~ /([^\\\/]+)[\\\/]*$/gs );
print "Filename = $file_name\n";
my $sock = new IO::Socket::INET(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => 30) ;
if (! $sock) { die "ERROR! Can't connect\n" ;}
$sock->autoflush(1);
print "Sending $file_name\n$file_size bytes." ;
print $sock "$file_name#:#" ; # send the file name.
print $sock "$file_size\_" ; # send the size of the file to server.
open (FILE,$file) ; binmode(FILE) ;
my $buffer ;
while( sysread(FILE, $buffer , $bandwidth) ) {
print $sock $buffer ;
print "." ;
sleep(1) ;
}
print "OK\n\n" ;
close (FILE) ;
close($sock) ;
}
#######
# END #
#######
</code>
<div class="pmsig-180139">
-----<BR>
<i>Of all the things I've lost in my life, its my mind I miss the most.</i>
</div>
329517
329520