Hatena::ブログ(Diary)

satoru.netの自由帳 このページをアンテナに追加 RSSフィード

180114Sunday

並列処理 Parallel::ForkManager @ perl

  • 時間のかかる処理を{}で括って$pm->start and next;と$pm->finish;で待機させる
  • count1は10秒で終わる、count2は5秒で終わる処理を並列処理するサンプル
#!/usr/bin/perl

use Parallel::ForkManager;

my $pm = Parallel::ForkManager->new(2);

## 処理1
{
	$pm->start and next;
	my $count1 = 0;
	while(1){
		if($count1++ == 10){
			print "count1 finish!\n";
			last;
		}
		print "count1 $count1\n";
		sleep 1;
	}
	$pm->finish;
}

## 処理2
{
	$pm->start and next;
	my $count2 = 0;
	while(1){
		if($count2++ == 5){
			print "count2 finish!\n";
			last;
		}

		print "count2 $count2\n";
		sleep 1;
	}
	$pm->finish;
}

$pm->wait_all_children;

print "ALL FINISH $count1 $count2\n";

結果

count1 1
count2 1
count1 2
count2 2
count1 3
count2 3
count1 4
count2 4
count1 5
count2 5
count1 6
count2 finish!
count1 7
count1 8
count1 9
count1 10
count1 finish!
ALL FINISH

名無し名無し 2018/02/17 06:52 人形板のバナースレのバナーを使ってください お願いします

名無し名無し 2018/02/23 11:10 おーぷん2ちゃんねるの 人形板でバナースレがあります
それを人形板のバナーに使ってください

名無し名無し 2018/03/04 09:07 おーぷん2ちゃんねるの 人形板でバナースレがあります
それを人形板のバナーに使ってください お願いします

名無し名無し 2018/03/06 09:52 バナーありがとうございます! ここでお願いするの場違いだと思いましたが
連絡の仕方がわからなかったので本当にすみませんでした

774774 2018/05/05 14:20 ワイをアク禁しやがったな
解除して下さいお願いしますさとる様

774774 2018/05/05 14:21 ワイをアク禁しやがったな
解除して下さいお願いしますさとる様

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証

©satoru.net
Mail Twitter