2008-07-08 tcpdump でDNSパケットを取得したデータからqueryperf用データの作成 tool #!/usr/bin/perl while(){ chomp $_; $_=~s/.* ([\w\d ]{1,8})\?/$1 /g; $_=~s/ OPT.*$//g; $_=~s/ \(\d+\)//g; my ($q,$a)=split(" ",$_); print $a,' ',$q,"\n"; } tcpdump udp port 53 |grep '?'|./dump2query.pl >dns.data