[Condor-users] submitting jobs with Condor.pm

["Smithies, Russell" <Russell.Smithies@xxxxxxxxxxxxxxxx>]

I'm trying to send multiple jobs to Condor with the Perl module but am obviously doing something wrong.
I modified the example code from the docs slightly to submit several jobs in a loop but it only submits one job then waits before submitting another one.

Any ideas what I've done wrong?

Thanx,

Russell Smithies


Here's the code:
=========================
#!perl

use warnings;

use lib "/usr/local/condor/lib";
use Condor;

$evicts = 0;
$vacates = 0;

# A subroutine that will be used as the normal execution callback
$normal = sub
{
    %parameters = @_;
    $cluster = $parameters{'cluster'};
    $job = $parameters{'job'};

    print "Job $cluster.$job exited normally without errors.\n";
    print "Job was vacated $vacates times and evicted $evicts times\n";
    exit(0);
};	

$evicted = sub
{
    %parameters = @_;
    $cluster = $parameters{'cluster'};
    $job = $parameters{'job'};

    print "Job $cluster, $job was evicted.\n";
    $evicts++;
    &Condor::Reschedule();	
};

$execute = sub
{
    %parameters = @_;
    $cluster = $parameters{'cluster'};
    $job = $parameters{'job'};
    $host = $parameters{'host'};
    $sinful = $parameters{'sinful'};

    print "Job running on $host $sinful, vacating...\n";
    &Condor::Vacate($sinful);
    $vacates++;
};



sub submit{
	print "submitting $_\n";
	$CMD_FILE = 'GenePrediction_'.$_.'.faa.template';
      $cluster = Condor::Submit($CMD_FILE) or die $!;
	&Condor::RegisterExitSuccess($normal);
	&Condor::RegisterEvicted($evicted);
	&Condor::RegisterExecute($execute);
	&Condor::Monitor($cluster);
	&Condor::Wait();
	&Condor::DebugOn();
}


# start 4 jobs
foreach (1..4){
	submit($_);
}
=============================== 
=======================================================================
Attention: The information contained in this message and/or attachments
from AgResearch Limited is intended only for the persons or entities
to which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of, or
taking of any action in reliance upon, this information by persons or
entities other than the intended recipients is prohibited by AgResearch
Limited. If you have received this message in error, please notify the
sender immediately.
=======================================================================