| 4 |
|
use Mysql; |
| 5 |
|
use File::Copy; |
| 6 |
|
use Getopt::Long; |
| 7 |
+ |
use POSIX; |
| 8 |
|
|
| 9 |
|
sub printHelp; |
| 10 |
|
sub outputPset; |
| 33 |
|
exit; |
| 34 |
|
} |
| 35 |
|
mkdir $ARGV[2]; |
| 36 |
< |
outputRunList ($ARGV[0], $ARGV[2]); |
| 36 |
> |
my $nFiles = outputRunList ($ARGV[0], $ARGV[2]); |
| 37 |
> |
my $nJobs = $ARGV[3]; |
| 38 |
> |
my $realNJobs = ceil ($nFiles / ceil ($nFiles / $nJobs)); |
| 39 |
|
outputPset ($ARGV[2]); |
| 40 |
< |
outputCondor ($ARGV[2], $ARGV[3]); |
| 40 |
> |
outputCondor ($ARGV[2], $realNJobs); |
| 41 |
|
copy ($ARGV[1], "$ARGV[2]/userConfig_cfg.py"); |
| 42 |
|
chdir $ARGV[2]; |
| 43 |
+ |
print "Submitting $realNJobs jobs to run on $nFiles files.\n"; |
| 44 |
|
system ("condor_submit condor.sub"); |
| 45 |
|
|
| 46 |
|
sub |
| 105 |
|
} |
| 106 |
|
print RUNLIST "]"; |
| 107 |
|
close (RUNLIST); |
| 108 |
+ |
|
| 109 |
+ |
return $nFiles; |
| 110 |
|
} |
| 111 |
|
|
| 112 |
|
sub |
