使用IO::Socket::INET模块进行TCP通信

Server端程序

 

 

#!/usr/bin/perl

use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
				LocalAddr => '127.0.0.1',
				LocalPort => 8080,
				Listen => 3,
				Reuse => 1,
				Proto => 'tcp')
or die "can not create server\n";

$sock_2 = $sock->accept();
while ($data = <$sock_2>) {
	print $data;
}
close $sock;

 

Client端程序

 

#!/usr/bin/perl

use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
				PeerAddr => '127.0.0.1',
				PeerPort => 8080,
				Proto => 'tcp')
or die "can not create client\n";
print $sock "Why don't you call me anymore\n";
$answer = <$sock>;
close $sock;