多次执行仿真

备忘

#!/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";
}