2

次のサブルーチンを使用して、40 ほどのスレッドを実行しています。

my $app = shift;
my $ua = LWP::UserAgent->new();
$ua->timeout(5);
my $response = $ua->get($$app{'watch_url'});
my $new_md5;
if ($response->is_success()) {
    $new_md5 = md5_hex($response->content());
}
return ($$app{'short_name'}, $$app{'watch_md5'}, $new_md5);

約 3/4 の時間でコア ダンプが発生します。LWP と LWP::UserAgent は純粋な Perl であるため、私はこれに油断しています。LWP::UserAgent はスレッドセーフではありませんか?

アップデート：

問題を再現するための最小バージョンは次のとおりです。

use strict;
use warnings;
use threads;
use LWP::UserAgent;

sub check_app {
    my $ua = LWP::UserAgent->new();
    $ua->timeout(5);
    $ua->get('http://www.flatdoc.com/?' . rand(10));
}

my @threads;
for (my $i = 0; $i < 40; $i++) {
    my $thread = threads->create(\&check_app);
    push(@threads, $thread);
}
foreach (@threads) {
    $_->join();
}
4

1 に答える 1

4

スレッドセーフでない純粋な Perl コードはセグメンテーション違反を引き起こしません (実際、純粋な Perl コードはセグメンテーション違反を引き起こすべきではありません)。Perl のバグにより、segfault が発生します。また、Perl のスレッドは歴史的に非常にバグが多いものでしたが、大幅に改善されました。

あなたのコードは 5.10.1 で正常に動作し、HTTP::Lite はおそらく、遭遇した perl のバグをくすぐることはありません。おそらく、新しいバージョンの Perl を使用する必要があるだけです。古くて Redhat に近づくほど、スレッドの安定性が低下します。スレッドを使用する場合は、入手できる最新の Perl を使用してください。

スレッドの代わりに、Parallel::ForkManager、LWP::Parallel、またはfork を使用してスレッドをエミュレートする驚くべき forks モジュールなどを使用できます。

于 2009-12-05T09:16:15.050 に答える