#!/usr/bin/perl -wuse 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 configurationprint CONDOR "User         = $userUniverse     = vanillaInputDir     = $inputdirOutputDir    = $outdirExecutable   = $cmdInitialDir   = \$(InputDir)Notification = ErrorError        = $outdir/err.\$(Process)Log          = $outdir/log.\$(Process)# Necessary for MatlabGetEnv	     = true# Memory requirementsRequirements = Memory >= $memory";# This section prints the IO sectionprint CONDOR "# IO sectionresult_filename = \$(OutputDir)/result-\$(snr_dB)-\$(BURST_LENGTH)-\$(RSCODE)-\$(Nu)-\$(LAMBDA)-\$(Process).txtTransfer-Input-Files =  $mfile.m";# This section prints the argument variableprint 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 variablesprint CONDOR "# Let's define variablesFS_CONT        = $FS_CONTDATA_LENGTH    = $DATA_LENGTHRSCODE         = $RSCODENpacket        = $NpacketNu             = $NuLAMBDA         = $LAMBDATC             = $TCBURST_LENGTH   = $BURST_LENGTHSYMBOL_LENGTH  = $SYMBOL_LENGTHCH_MODEL       = $CH_MODELCH_ATT_THLD_DB = $CH_ATT_THLD_DBchannel_est    = $channel_estB              = $BT_INT          = $T_INTN_INT          = $N_INTtiming_offset  = $timing_offset# Queue jobs";# Define each SNR and enqueue the jobsfor $val (@snr_dB) {    print CONDOR "snr_dB = $val\n";    print CONDOR "Queue $queueSize\n\n";}