DouKaku? 4970 dankogai: Perlで[threads](http:...(ワーカスレッドを安全に終了させるまで待機)

Comment detail

Perlでthreadsを使うためには、-DusethreadsをつけてConfigureする必要がありますが、いちおうそうなっているという前提で。

本質的なのは、

1 while threads->list(threads::running);

だけです。threadsを再利用するか否かは関係なく使えます。

どちらかというと、threadsは使い捨てにした方がコードは書きやすいですね。

Dan the Threaded Perl Monger

#!/usr/local/bin/perl
use strict;
use warnings;
use threads;
use Time::Hires qw/sleep/;

my @thr;
for my $i ( 1 .. shift || 10 ) {
    push @thr, threads->create(
        sub {
            my $n = shift;
            my $s = rand(10.0);
            sleep $s;
            warn "$n:slept $s sec.";
        },
        $i
    );
}

1 while threads->list(threads::running);
warn "All Threads Done";

$thr[0]->join();    # on purpose

END {
    $_->is_joinable() and $_->join() for @thr;
}

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq