备忘
#!/usr/bin/perl
#increse rate 100kbps once , excute 30 times and save results.
for ($i=100; $i<=100; $i=$i+50) {
for ($j=1; $j<=1; $j++) {
system("ns 2udp.tcl $i $j");
$f1="2udp$i-$j.tr";
$f2="2udp-delay1-$i";
$f3="2udp-delay2-$i";
system("awk -f flow1delay.awk $f1 >> $f2");
system("awk -f flow2delay.awk $f1 >> $f3");
print "\n";
}
print "\n";
}
本文详细介绍了如何使用Perl脚本执行NS2UDP脚本,改变参数执行30次,并保存每次运行的结果。

被折叠的 条评论
为什么被折叠?



