coping txt files over a peer to peer.

[Tino Arellano]

Hello folks,

How do I send the file name used by the client so that the server uses the same file 
name 
When it is writing it own file. 


thank you.

--------------------------------here's the client: 

use IO::Socket;

my $server = IO::Socket::INET->ne­w(
   PeerAddr => 'localhost',
   PeerPort => 5050,
   Proto    => 'tcp'
) or die "Can't create client socket: $!";


open FILE, "original_file_name";
    while (<FILE>) {
          print $server $_;
          }
close FILE;


--------------------------------Here's the server:

use IO::Socket;

my $server = IO::Socket::INET->ne­w(
   Listen => 5,
   LocalAddr => 'localhost',
   LocalPort => 5050,
   Proto     => 'tcp'
) or die "Can't create server socket: $!";

my $client = $server->accept;


open FILE, ">copy_file_name" or die "Can't open: $!";
     while (<$client>) {
           print FILE $_;
           }
close FILE;


--------------------------------------------------






-- 
______________________________________________
Check out the latest SMS services @ http://www.linuxmail.org 
This allows you to send and receive SMS through your mailbox.


Powered by Outblaze

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>