condor-run.pl

一个UWB仿真程序包

#!/usr/bin/perl -w

use Cwd;

my $condor = 0;
my $delete = 0;
my $basedir = cwd();
my $user = $ENV{USER};

# set default parameters
$mfile   = "";
$simdir  = "";
#
$FS_CONT       = 8e9;
$DATA_LENGTH   = 127;
$RSCODE        = 0;
$Npacket       = 10;
#
$Nu            = 1;
$LAMBDA        = 100;
#
$TC            = 2e-9;
$BURST_LENGTH  = 4;
$SYMBOL_LENGTH = 512;
#
$CH_MODEL       = 1;
$CH_ATT_THLD_DB = 30;
$channel_est    = 0;
#
@snr_dB = (12);
$B      = 2e9;
#
$T_INT = 1e-9;
$N_INT = 1;
#
$timing_offset = 0;
#
$memory  = 1;
$queueSize = 5;

require "../common.pl";

if (exists $ARGV[0]) {
    while ($ARGV[0] =~ /^-\w/) {
	$p = shift;
	if ($p eq "-condor") {
	    $condor = 1;
	} elsif ($p eq "-delete") {
	    $delete = 1;
	} elsif ($p eq "-h") {
	    die "Usage: $0 [-condor] [-delete]\n";
	} else {
	    die "Unknown option: $p\nUsage: $0 [-condor] [-nodelete]";
	}
    }
}

$cmd = "../matlab_gsl.sh";
print "CMD: $cmd\n";

print "BASEDIR:   $basedir:\n";
read_config("./","config.pl");


$inputdir = "$basedir/";
$condordir = "/home/90days/$user/condor_matlab_output";
$outdir = "$condordir/$simdir-$BURST_LENGTH-$RSCODE-$channel_est-$Nu-$LAMBDA";
print "OUTPUTDIR: $outdir:\n";

system "mkdir -p $outdir";
if ($delete) {
    print "Clean up 90days ($condordir)\n";
    system "find $condordir -type f | xargs rm -f";
}
#system "rm -f $simdir/condor.log";

if ($condor) {
    open CONDOR, "|condor_submit | tee $basedir/condor.tmp" or die "FATAL: Cannot invoke condor submitter.\n";
}
else {
    open CONDOR, ">$basedir/script.dynamic.condor";
}

# This section prints basic configuration
print CONDOR "User         = $user
Universe     = vanilla
InputDir     = $inputdir
OutputDir    = $outdir
Executable   = $cmd
InitialDir   = \$(InputDir)
Notification = Error
Error        = $outdir/err.\$(Process)
Log          = $outdir/log.\$(Process)
# Necessary for Matlab
GetEnv	     = true

# Memory requirements
Requirements = Memory >= $memory
";


# This section prints the IO section
print CONDOR "
# IO section
result_filename = \$(OutputDir)/result-\$(snr_dB)-\$(BURST_LENGTH)-\$(RSCODE)-\$(Nu)-\$(LAMBDA)-\$(Process).txt
Transfer-Input-Files =  $mfile.m
";

# This section prints the argument variable
print CONDOR "
Arguments       = $mfile(\$(FS_CONT),\$(DATA_LENGTH),\$(RSCODE),\$(Nu),\$(LAMBDA),\$(Npacket),\$(TC),\$(BURST_LENGTH),\$(SYMBOL_LENGTH),\$(CH_MODEL),\$(CH_ATT_THLD_DB),\$(channel_est),\$(snr_dB),\$(B),\$(T_INT),\$(N_INT),\$(timing_offset),'\$(result_filename)')
Output          = \$(OutputDir)/output-\$(snr_dB)-\$(BURST_LENGTH)-\$(RSCODE)-\$(Nu)-\$(LAMBDA)-\$(Process).txt
";

# This section prints simulation variables
print CONDOR "
# Let's define variables
FS_CONT        = $FS_CONT
DATA_LENGTH    = $DATA_LENGTH
RSCODE         = $RSCODE
Npacket        = $Npacket
Nu             = $Nu
LAMBDA         = $LAMBDA
TC             = $TC
BURST_LENGTH   = $BURST_LENGTH
SYMBOL_LENGTH  = $SYMBOL_LENGTH
CH_MODEL       = $CH_MODEL
CH_ATT_THLD_DB = $CH_ATT_THLD_DB
channel_est    = $channel_est
B              = $B
T_INT          = $T_INT
N_INT          = $N_INT
timing_offset  = $timing_offset

# Queue jobs
";



# Define each SNR and enqueue the jobs
for $val (@snr_dB) {
    print CONDOR "snr_dB = $val\n";
    print CONDOR "Queue $queueSize\n\n";
}