Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Client / Server app

by jdgamache (Novice)
on Feb 12, 2001 at 19:40 UTC ( #57900=snippet: print w/ replies, xml ) Need Help??

Description: Here is the startup code for a Client server application, it's quite cool!
There is the code for the server and the client: Here is the code for the server you have to change the machine name.
use IO::Socket;
use IO::Select;

my $machine_addr = 'sb002562';
$main_sock = new IO::Socket::INET(LocalAddr=>$machine_addr,
      LocalPort=>1200,
      Proto=>'tcp',
      Listen=>1,
            Reuse=>1,
            );

die "Could not connect: $!" unless $main_sock;
print "Starting Server\n";

$readable_handles = new IO::Select();
$readable_handles->add($main_sock);

while (1)
{
  ($new_readable) = IO::Select->select($readable_handles, undef, undef
+, 0);

  foreach $sock (@$new_readable)
  {
    if ($sock == $main_sock)
    {
      $new_sock = $sock->accept();
      $readable_handles->add($new_sock);
    }
    else
    {
      $buf = <$sock>;
      if ($buf)
      {
        print "$buf\n";
      }
      else
      {
        $readable_handles->remove($sock);
        close($sock);
      }
    }
  }

}


print "Terminating Server\n";
close $main_sock;
getc();
Here is the code for the Client you have to change the machine name.
use IO::Socket;
use IO::Pipe;
my $machine_addr = 'sb002562';
$sock = new IO::Socket::INET(PeerAddr=>$machine_addr,
      PeerPort=>1200,
      Proto=>'tcp',
      );

die "Could not connect: $!" unless $sock;
$id = shift;

foreach (1 .. 10) {
  print $sock "From $id: Msg $_: How are you?\n";
}

close ($sock);

Comment on Client / Server app
Select or Download Code

Back to Snippets Section

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2014-08-23 04:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (172 votes), past polls