run-psm.pl

ns 2.28 下 SPAN节能协议源码

#!/usr/bin/perl

$nsdir = "$ENV{HOME}/ns-allinone-2.28/ns-2.28";

$scen = $ARGV[0];
shift @ARGV;

$args = join(" ", @ARGV);
$tag  = join("-", @ARGV);

$ns = "$nsdir/ns";
$rs = "$nsdir/tcl/ex/run-2Mb.tcl";
$md = "$nsdir/tcl/mobility/span.tcl";

# Can't get the $scen stuff to work right, just hardcoding the names for now
# system("tcsh -c \"cd $nsdir > /dev/null; ($ns $rs -sc $scen -rp $md -usepsm 1 -spanopt 0 -usespan 0 -tr /tmp/$scen$tag-psm.tr $args >! /tmp/$scen$tag-psm.stdout)>&! /tmp/$scen$tag-psm.out\"");
system("tcsh -c \"cd $nsdir > /dev/null; ($ns $rs -sc $scen -rp $md -usepsm 1 -spanopt 0 -usespan 0 -tr /tmp/psm.tr $args >! /tmp/psm.stdout)>&! /tmp/psm.out\"");