複数のスクリプトをperlのqsubに送信

Question

私は、とりわけ3つのスクリプトをqsubに送信するperlスクリプトを作成しています。どのように私は最初の仕事が完了したときに私のスクリプトを教えますか？ qsubにジョブの状態が格納されている変数にアクセスするには何らかの方法があると思いますが、わかりません。

---

更新：qsubのフラグを使用して、それを迂回します。

qsub -hold_jid job2 job1

Answer 1

PBS::Client試してみてください。

---

use strict; 
use warnings; 
use PBS::Client; 

my $pbs = PBS::Client->new; 
my $job1 = PBS::Client::Job->new(cmd => "./a1.out"); 
my $job2 = PBS::Client::Job->new(cmd => "./a2.out"); 
my $job3 = PBS::Client::Job->new(cmd => "./a3.out"); 

$job1->next({ ok => $job2 }); # Run $job2 if $job1 ran OK 
$job2->next({ ok => $job3 }); # Run $job3 if $job2 ran OK 

$pbs->qsub($job1);