Re: [Condor-users] submitting jobs with Condor.pm

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

Worked it out,  I was doing it all wrong :-(
You submit one job with a big queue.

--Russell

> -----Original Message-----
> From: condor-users-bounces@xxxxxxxxxxx [mailto:condor-users-
> bounces@xxxxxxxxxxx] On Behalf Of Smithies, Russell
> Sent: Friday, 7 May 2010 2:43 p.m.
> To: 'Condor-Users Mail List'
> Subject: [Condor-users] submitting jobs with Condor.pm
> 
> 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.
> =======================================================================
> _______________________________________________
> Condor-users mailing list
> To unsubscribe, send a message to condor-users-request@xxxxxxxxxxx with a
> subject: Unsubscribe
> You can also unsubscribe by visiting
> https://lists.cs.wisc.edu/mailman/listinfo/condor-users
> 
> The archives can be found at:
> https://lists.cs.wisc.edu/archive/condor-users/