set-ws.pl

在Linux下做的QuadTree的程序

#!/usr/bin/perl
if ($#ARGV != 2) {
    die "usage: setws <num_nodes> <wakeup_time> <sleep_time>\n";
}

$nodes = shift;
$wakeup_time = shift;
$sleep_time = shift;

foreach $percentage ((0)) {

    $file = "/home/ny4/jinyang/adhoc/our-ns/scen/ws-$nodes-$wakeup_time-$sleep_time-$percentage";
    print "./setws -n $nodes -w $wakeup_time -s $sleep_time -t 300 -g $percentage > $file\n";
    `./setws -n $nodes -w $wakeup_time -s $sleep_time -t 300 -g $percentage > $file`;
  
}