多次执行仿真

备忘

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