perl Socket编程入门

服务端如下：

#!/usr/bin/perl -w


use strict;
use IO::Socket;

my $server_port = 9999;
my $client;

my $server = IO::Socket::INET->new(LocalPort => $server_port,
                                   Type => SOCK_STREAM,
                                   Reuse => 1,
                                   Listen => 10) or die "Couldn't be a tcp server on port $server_port: $!\n";
  
#while ( $client = $server->accept())


my $newSocket = $server->accept();

while (<$newSocket>)
{
        print $_;
        #$server->send("55555555555555\n");

}



close($server);

 

 

客户端如下：

 

#!/usr/bin/perl -w


use strict;
use IO::Socket;

my $remote_host = '127.0.0.1';
my $remote_port = 9999;

my $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                   PeerPort => $remote_port,
                                   Proto => "tcp",
                                   Type => SOCK_STREAM ) or die "Couldn't connect to $remote_host, $remote_port: $!\n";

print "$socket,\t I'm is client\n";


print $socket "sucess \n";
print $socket "sucess \n";

my $answer = <$socket>;
#my $newSocket = $socket->accept();


close($socket);