Perl で非常に短いスクリプトを作成し、それを使用multi-thread
しました。
私の問題は、私が作成したスレッドがjoinable
. それで、スレッドを結合可能にする条件は何ですか?
Perlのスレッドの制限は?
#!/usr/bin/env perl
#
#
use lib "$::XCATROOT/lib/perl";
use strict;
use threads;
use Safe;
sub test
{
my $parm = shift;
}
my $newchassis = ["1", "2", "3"];
my @snmp_threads ;
for my $item (@$newchassis)
{
my $thread = threads->create(\&test, $item);
push @snmp_threads, $thread;
}
for my $t (@snmp_threads)
{
$t->join();
}
これは、RHEL 6.3 では機能しますが、SLES 11sp2 では失敗するため、非常に注意が必要です。