Perl Socket 简单例子

来源：互联网发布：网络电视第一财经编辑：程序博客网时间：2024/05/21 11:34

服务端:#!/usr/bin/perl -wuse 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 -wuse 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 client\n"; print $socket "sucess \n";print $socket "报文已接收 \n";sleep(5)};my $answer = <$socket>;#my $newSocket = $socket->accept();close($socket);

0 0