2008-07-08から1日間の記事一覧
#!/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
#!/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
