如何在 Perl 中处理客户端服务器通信？

Question

我有两个 Perl 脚本，它们应该执行以下工作：

服务器启动并等待客户端连接。 客户端连接并立即发送 XML 文件。 服务器读取 XML 文件并启动几个线程。 每个线程接收 $client 套接字作为参数，一旦完成，它们必须将输出发送回客户端。 同时，客户端正在等待消息到达，他应该在命令行上打印这些消息。

现在我的问题是我不知道如何实现最后一部分。我尝试使用接收方法，但如果我这样做，两个程序都会卡住。

服务器端：

my @threads;
$server = IO::Socket::INET->new(
            Listen => 1,                
            LocalAddr => 'localhost', 
            LocalPort => '8080', 
            Proto => 'tcp'
) or die "Can't crete socket!\n";
$client = $server->accept;
open FILE, ">".$filename or die "Can't open file!\n";
while (<$client>) {
    print FILE $_;  
}
close FILE;

# READ FILE AND DO SOME OTHER STUFFS
push @threads, threads ->create(\&subroutine1, $parameters, $client);
# OTHER STUFFS
push @threads, threads ->create(\&subroutine2, $parameters, $client);
# MORE THREADS...

sub subroutine1 {
    my @pars= @_;
    my $parameters = $pars[0];
    my $client = $pars[1];
    my $sub1 = `perl other_script.pl $parameters`;
    $client->send($mem);
}

客户端：

my $server = IO::Socket::INET->new(
    PeerAddr => 'localhost',
    PeerPort => '8080',
    Proto => 'tcp'
) or die "Can't create client socket!\n";
open FILE, $filename;
while (<FILE>) {
    print $server $_;   
}
close FILE;
# HOW DO I READ INFORMATIONS?
$server->close();

Answer 1

您不能将发送部分放入子线程/工作线程中，它会变得混乱。

问：多线程鸡为什么要过马路？

A：另一边。前往获取

，让父/主线程收集子线程的结果，必要时对数据进行排序，序列化，然后作为整体发送。

您可以使用 recv 函数 进行读取，也可以作为 IO::Socket。