Initial check-in (somewhat belated).

[unet] / tests / packets

#! /bin/perl

$| = 1;
sleep 10;
for (;;) {
  sysread(STDIN, $buf, 65536) or die "read: $!";
  hexdump($buf);
}

sub hexdump {
  my $buf = shift;
  my ($off, $i);

  while ($off < length($buf)) {
    printf "%08x : ", $off;
    for ($i = $off; $i < $off + 16; $i++) {
      if ($i >= length($buf)) {
        print "** ";
      } else {
        printf "%02x ", ord(substr($buf, $i, 1));
      }
    }
    print ": ";
    for ($i = $off; $i < $off + 16; $i++) {
      if ($i >= length($buf)) {
        print "*";
      } else {
        $ch = substr($buf, $i, 1);
        $code = ord($ch);
        if ($code < 32 || $code > 126) {
          print ".";
        } else {
          print $ch;
        }
      }
    }
    print "\n";
    $off += 16;
  }
  print "\n";
}