6 sysread(STDIN, $buf, 65536) or die "read: $!";
14 while ($off < length($buf)) {
15 printf "%08x : ", $off;
16 for ($i = $off; $i < $off + 16; $i++) {
17 if ($i >= length($buf)) {
20 printf "%02x ", ord(substr($buf, $i, 1));
24 for ($i = $off; $i < $off + 16; $i++) {
25 if ($i >= length($buf)) {
28 $ch = substr($buf, $i, 1);
30 if ($code < 32 || $code > 126) {