Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
Perl: the Markov chain saw
 
PerlMonks  

Re: Re: Transfer files (network)

by AcidHawk (Vicar)
on Feb 17, 2004 at 09:12 UTC ( #329541=note: print w/ replies, xml ) Need Help??


in reply to Re: Transfer files (network)
in thread Transfer files (network)

There is no Net::FTPServer module for Windows. So if FireBird34 is running on a MS platform s/he will not be able to use it easily.

Have a look at creating a listening socket on the server and a client piece that connects to that socket.

Below is some code I found (here at PerlMonks I think) that sets up a socket and transfers a file from the client.

Server:-

#!/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 # #######

Client:-

#!/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 # #######
-----
Of all the things I've lost in my life, its my mind I miss the most.


Comment on Re: Re: Transfer files (network)
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://329541]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2014-04-23 20:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (554 votes), past polls