wlan-ifq

柯老师网站上找到的

#!/bin/tcsh
#
# works on a trace file produced by ns
# analyzes IFQ dynamics on a particular node

if ( $#argv != 2 ) then
  echo usage:
  echo "      " $0 \<scenario\> \<node id\>
  exit 1
endif

set scenario = $1
set node = $2

set tracefile = $scenario.tr

grep "\-Ni $node " $tracefile | grep -v "\-P arp " | grep -v "\-Nw END " | awk '{				\
	if (($1 == "d") && ($19 == "IFQ")) {									\
		print $3, " qlen = ", qlen--, " local = ",   local, " forward = ",   forward, " DROPPED";	\
		if (q[head] == 1) --local;									\
		if (q[head] == 2) --forward;									\
		++head;												\
	}													\
	else if (($1 == "s") && ($19 == "RTR")) {								\
		print $3, " qlen = ", ++qlen, " local = ", ++local, " forward = ",   forward;			\
		q[tail++] = 1;											\
	}													\
	else if (($1 == "f") && ($19 == "MAC")) {								\
		print $3, " qlen = ", ++qlen, " local = ",   local, " forward = ", ++forward;			\
		q[tail++] = 2;											\
	}													\
	else if (($1 == "s") && ($19 == "IFQ")) {								\
		print $3, " qlen = ", --qlen, " local = ",   local, " forward = ",   forward, " SENT";		\
		if (q[head] == 1) --local;									\
		if (q[head] == 2) --forward;									\
		++head;												\
	}													\
}'