基于特定代码在 PERL 中具有多个连接的 TCP 服务器
TCP Server with multiple connections in PERL based on specific code
我使用 Perl 脚本创建 TCP 服务器。它工作正常,但我需要修改它以便它接受多个连接。这是我使用的代码:
use IO::Socket::INET;
# auto-flush on socket
$| = 1;
# creating a listening socket
my $socket = new IO::Socket::INET (
LocalHost => '0.0.0.0',
LocalPort => '5000',
Proto => 'tcp',
Listen => 5,
Reuse => 1
);
die "cannot create socket $!\n" unless $socket;
print "server waiting for client connection on port 5000\n";
while(1)
{
# waiting for a new client connection
my $client_socket = $socket->accept();
# get information about a newly connected client
my $client_address = $client_socket->peerhost();
my $client_port = $client_socket->peerport();
print "connection from $client_address:$client_port\n";
# read up to 1024 characters from the connected client
my $data = ":123456F#";
$client_socket->send($data);
# write response data to the connected client
$data = "";
$client_socket->recv($data, 1024);
print "received data: $data\n";
# notify client that response has been sent
shutdown($client_socket, 1);
}
$socket->close();
我需要修改上面的代码才能处理多个连接。我真的很感激任何帮助。
谢谢
有两种处理多个套接字的关键方法。
第一个是 - 利用 IO::Select
- 它有一个 can_read
函数 - 这允许你测试一个套接字是否有数据要读取,你可以迭代你的套接字列表。阅读 IO::Select
上的文档,因为它有一个示例,说明如何准确地执行您想要的操作。
另一种方法是并行处理。特别是使用线程或分叉来异步处理 $client_socket
。我会向您推荐:Perl daemonize with child daemons(主要是因为重写并行代码有点复杂,所以可能超出范围)。我建议您 可能 想要 'forking' 方法,因为这通常更适合并行风格。
我使用 Perl 脚本创建 TCP 服务器。它工作正常,但我需要修改它以便它接受多个连接。这是我使用的代码:
use IO::Socket::INET;
# auto-flush on socket
$| = 1;
# creating a listening socket
my $socket = new IO::Socket::INET (
LocalHost => '0.0.0.0',
LocalPort => '5000',
Proto => 'tcp',
Listen => 5,
Reuse => 1
);
die "cannot create socket $!\n" unless $socket;
print "server waiting for client connection on port 5000\n";
while(1)
{
# waiting for a new client connection
my $client_socket = $socket->accept();
# get information about a newly connected client
my $client_address = $client_socket->peerhost();
my $client_port = $client_socket->peerport();
print "connection from $client_address:$client_port\n";
# read up to 1024 characters from the connected client
my $data = ":123456F#";
$client_socket->send($data);
# write response data to the connected client
$data = "";
$client_socket->recv($data, 1024);
print "received data: $data\n";
# notify client that response has been sent
shutdown($client_socket, 1);
}
$socket->close();
我需要修改上面的代码才能处理多个连接。我真的很感激任何帮助。 谢谢
有两种处理多个套接字的关键方法。
第一个是 - 利用 IO::Select
- 它有一个 can_read
函数 - 这允许你测试一个套接字是否有数据要读取,你可以迭代你的套接字列表。阅读 IO::Select
上的文档,因为它有一个示例,说明如何准确地执行您想要的操作。
另一种方法是并行处理。特别是使用线程或分叉来异步处理 $client_socket
。我会向您推荐:Perl daemonize with child daemons(主要是因为重写并行代码有点复杂,所以可能超出范围)。我建议您 可能 想要 'forking' 方法,因为这通常更适合并行风格。