Multithreading perl服务器中的内存泄漏
我正试图用perl(Windowsx64)编写一个多线程服务器。当尝试从另一台计算机连接到它时,我发现内存和句柄的使用率一直在上升,即使我一次只保持一个连接。经过数千次试验,它几乎耗尽了所有的系统内存。我想不出原因 以下是服务器端:Multithreading perl服务器中的内存泄漏,multithreading,perl,memory-leaks,Multithreading,Perl,Memory Leaks,我正试图用perl(Windowsx64)编写一个多线程服务器。当尝试从另一台计算机连接到它时,我发现内存和句柄的使用率一直在上升,即使我一次只保持一个连接。经过数千次试验,它几乎耗尽了所有的系统内存。我想不出原因 以下是服务器端: use IO::Socket::INET; use threads; sub session_thread { my $client_socket=$_[0]; my $client_address = $client_socket->pe
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();
谢谢。您必须等待线程结束,或者告诉Perl您不关心线程的返回值,并且Perl本身应该在线程退出后清理数据。后者似乎与您的用例相匹配,并且是由您自己完成的
还要注意,在您的示例中使用了
exit
。您可以简单地从线程的子例程正常返回<代码>退出用于从程序中更深的嵌套级别结束线程。您必须等待线程完成,或者告诉Perl您不关心线程的返回值,并且Perl本身应该在线程退出后清理数据。后者似乎与您的用例相匹配,并且是由您自己完成的
还要注意,在您的示例中使用了
exit
。您可以简单地从线程的子例程正常返回<代码>退出用于从程序中更深的嵌套级别结束线程。分离正是我想要的。非常感谢你!分离正是我想要的。非常感谢你!