Lang/Perl/thread の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• Lang/Perl/thread へ行く。
  • 1 (2020-11-14 (土) 20:57:27)
  • 2 (2020-11-21 (土) 16:52:57)
  • 3 (2023-09-14 (木) 00:52:36)

目次†

Thread†

thread の生成†

• threads を使う。

use threads;

# thread の生成
my ($thread_1) = threads->new(\&thread_func, "t1");

# thread 終了の待ち合わせ
$thread_1->join;

# thread 関数
sub thread_func {
    # 処理
}

queue による通信†

• Thread::Queue を使う。

use threads;
use Thread::Queue;

my ($queue_a) = new Thread::Queue;

# thread 生成時に、 thread 関数の引数として Queue を渡す：
my ($thread_a) = threads->new(\&thread_func_a, $queue_a);

$thread_a->join;

• Queue に積む

  $queue_a->enqueue(<データ>);

• Queue から引き抜いて $data に格納する

  $data = $queue_a->dequeue();