Отправка нескольких скриптов в qsub в perl

Question

Я пишу скрипт на Perl, который, помимо прочего, отправляет три скрипта в qsub.Как мне «сказать» мой сценарий, когда первая работа завершена?Я предполагаю, что есть какой-то способ доступа к переменной, где 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);