chiark / gitweb /
src/event.c: Use `continue' in adns_processreadable (style)
[adns.git] / regress / hack-query-ids
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 }