condor-harvest.pl

来自「一个UWB仿真程序包」· PL 代码 · 共 74 行

#!/usr/bin/perl -w

use Cwd;

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

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

if (exists $ARGV[0]) {
    while ($ARGV[0] =~ /^-\w/) {
	$p = shift;
	if ($p eq "-clean") {
	    $clean = 1;
	} else {
	    die "Unknown option: $p\nUsage: $0 [-clean]";
	}
    }
}

require "../common.pl";
read_config("./","config.pl");

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

if ($clean == 1) {
    system "rm -f $basedir/results/*"
}


if ( -e "$basedir/results" ) {
    print "Directory $basedir/results exists.\n";
} else {
    print "Create $basedir/results.\n";
    system "mkdir -p $basedir/results";
}

# Create a readme file with the details of the simulation
system "grep ^@ config.pl > $basedir/results/CONFIG.txt";
system "grep ^\\\\\$ config.pl >> $basedir/results/CONFIG.txt";
# Harvest and consolidate the results
for $val (@snr_dB) {
    # Bit error rate
    $filename = "$inputdir/result-$val-$BURST_LENGTH-$RSCODE-$Nu-$LAMBDA-*.txt";
    system "cat $filename > $basedir/results/result-$val-$BURST_LENGTH-$RSCODE-$Nu-$LAMBDA.txt";

}