1

perl (Windows x64) でマルチスレッド サーバーを作成しようとしています。別のコンピューターから接続しようとすると、一度に 1 つの接続しか維持していないにもかかわらず、メモリとハンドルの使用量が増え続けていることがわかりました。そして、何千回もの試行の後、ほぼすべてのシステム メモリを使い果たしました。理由がわかりません。

サーバー側は次のとおりです。

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();

ありがとう。

4

1 に答える 1

6

スレッドに参加してスレッドが終了するのを待つか、Perl にスレッドの戻り値を気にせず、スレッドが終了したら Perl 自体がデータをクリーンアップする必要があることを伝える必要があります。後者はあなたのユースケースと一致しているようで、detachingによって行われます。

exitまた、あなたの例では使用する必要がないことに注意してください。通常、スレッドのサブルーチンから単純に戻ることができます。exitプログラム内のより深いネストレベルからスレッドを終了するために使用されます。

于 2013-08-24T21:30:26.613 に答える