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

最新推荐文章于 2017-01-03 17:37:02 发布

原创最新推荐文章于 2017-01-03 17:37:02 发布 · 464 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Socket #Perl

perl 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一个简单的Perl程序，用于实现客户端与服务器之间的TCP通信。服务器监听本地地址127.0.0.1上的8080端口，并接受来自客户端的消息。客户端连接到服务器并发送一条消息，随后接收服务器的响应。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;