Commit | Line | Data |
---|---|---|
f7b93d15 MW |
1 | #! /usr/bin/perl |
2 | ||
3 | @seq = sort { $a <=> $b } map { hex } @ARGV; | |
4 | ||
5 | while (<STDIN>) { | |
6 | print; | |
7 | if (/^ (sendto fd=\d+|recvfrom=OK) addr=([0-9.]+|\[0-9a-f:]+\]).*:53/) { | |
8 | my $line = <STDIN>; | |
9 | if ($line !~ /^ ([0-9a-f]{4})(.*)$/s) { | |
10 | print $line; | |
11 | next; | |
12 | } | |
13 | my $qq = hex $1; | |
14 | for my $q (@seq) { $qq++ if $qq >= $q; } | |
15 | printf " %04x%s", ($qq & 0xffff), $2; | |
16 | } | |
17 | } |