perl 服务器中的内存泄漏

Question

我正在尝试使用 perl (Windows x64) 编写多线程服务器。当尝试从另一台计算机连接到它时，我发现内存和句柄使用率一直在上升，即使我一次只保持一个连接。经过数千次试验，它几乎耗尽了所有系统内存。不知道是什么原因。

这里是服务器端：

use IO::Socket::INET;
use threads;

sub session_thread
{
    my $client_socket=$_[0];

    my $client_address = $client_socket->peerhost();
    my $client_port = $client_socket->peerport();
    print "connection from $client_address:$client_port\n";

    my $data = "";
    $client_socket->recv($data, 1024);
    print "$client_address:$client_port says: $data";

    $data = "ok";
    $client_socket->send($data);

    shutdown($client_socket, 1);
    $client_socket->close();
    threads->exit();
}

$| = 1;

my $socket = new IO::Socket::INET (
    LocalHost => '0.0.0.0',
    LocalPort => '7777',
    Proto => 'tcp',
    Listen => 5,
    ReuseAddr => 1
);
die "cannot create socket $!\n" unless $socket;
print "server waiting for client connection on port 7777\n";

while(1)
{
    my $client_socket = $socket->accept();
    threads->create('session_thread',$client_socket);
}

$socket->close();

谢谢。

Answer 1

你要么必须等待线程在joining it 之前完成，要么告诉 Perl 你不关心线程的返回值，一旦线程退出，Perl 本身应该清理数据。后者似乎与您的用例相匹配，由 detaching 完成。

另请注意，在您的示例中使用 exit 是 not necessary。您可以简单地从线程的子例程中正常返回。 exit 用于从程序内更深的嵌套级别结束线程。