Help for this page

Select Code to Download

Select or download this

$ perl -E 'say "\0"x64 ."A"x64' | hexdump -C
00000000  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |.........
+.......|
...
*
00000080  0a                                                |.|
00000081

Select or download this

sub hexdump($data) {
  $data =~ s/\G(.{1,16})(\1+)?/
...
        "*\n"x!!$+[2]
  /segr . sprintf "%08X", $+[0]
}