Perl Socket 简单例子

服务端:
#!/usr/bin/perl -w




use IO::Socket;


my $server_port = 9999;


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 $_;


}


close($server);

客户端:
#!/usr/bin/perl -w




use strict;
use IO::Socket;
my $remote_host = '10.10.17.3';
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";
while (1){
print "$socket,t I'm is clientn"; 
print $socket "sucess n";
print $socket "报文已接收 n";
sleep(5)
};


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




close($socket);