blob: a0967f9a50c48bdfe2e2101785023d92eaded92b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#!/usr/bin/env perl
use warnings;
use strict;
use Cwd;
use FindBin qw($RealBin);
use Getopt::Long;
use File::Basename;
my $continue = 0;
my $args = "";
my $config;
GetOptions("continue=i" => \$continue,
"args=s" => \$args,
"config=s" => \$config
) or exit 1;
#print STDERR "args=$args\n";
# create temp run file
my $gridDir = cwd() ."/grid";
mkdir $gridDir;
my $runPath = "$gridDir/run.$$";
print STDERR "runPath=$runPath\n";
open (my $runFile, ">", $runPath);
print $runFile "#!/bin/bash\n";
print $runFile "#PBS -d" .cwd() ."\n\n";
my $path = $ENV{"PATH"};
my $user = $ENV{"USER"};
#print STDERR "path=$path\n";
print $runFile "export PATH=\"$path\"\n\n";
print $runFile "export PERL5LIB=\"/share/apps/NYUAD/perl/gcc_4.9.1/5.20.1:/home/$user/perl5/lib/perl5\"\n\n";
print $runFile "module load NYUAD/2.0 \n";
print $runFile "module load gcc python/2.7.9 boost cmake zlib jdk perl expat \n\n";
my $emsDir = dirname($RealBin);
if ($continue) {
print $runFile "nice ionice -c 3 $emsDir/experiment.perl -exec -continue=$continue \n\n";
}
else {
print $runFile "nice ionice -c 3 $emsDir/experiment.perl -exec -config=$config \n\n";
}
close $runFile;
my $cmd = "qsub $args $runPath";
`$cmd`;
unlink $runFile;
|