[v9_10] use perl for query burst

bin/tests/system/rrl/tests.sh

@@ -93,14 +93,14 @@ QNUM=1
 burst () {
     BURST_LIMIT=$1; shift
     BURST_DOM_BASE="$1"; shift
-    while test "$BURST_LIMIT" -ge 1; do
-	CNT=`expr "00$QNUM" : '.*\(...\)'`
+    CNTS=`$PERL -e 'for ( $i = 0; $i < '$BURST_LIMIT'; $i++) { printf "%03d\n", '$QNUM' + $i; }'`
+    for CNT in $CNTS
+    do
 	eval BURST_DOM="$BURST_DOM_BASE"
 	FILE="dig.out-$BURST_DOM-$CNT"
 	digcmd $FILE $BURST_DOM $* &
-	QNUM=`expr $QNUM + 1`
-	BURST_LIMIT=`expr "$BURST_LIMIT" - 1`
     done
+    QNUM=`expr $QNUM + $BURST_LIMIT`
 }