###### xd -- hexdump
#!/usr/bin/perl

@fill= qw( .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. );

if (scalar(@ARGV)) {
    foreach $file(@ARGV) {
        $size= -s $file;
        $form= length(sprintf("%x",$size))-1;
        ++$form unless $form;
        print "File: ",$file,"\n";
        open (IN,$file);
        &dump(*IN, $form);
        close (IN)
    }
}
else {
    &dump(*STDIN, 4);
}

sub dump {
    local(*IN, $form)= @_;
    my ($buf, $i);
    while ($rb= read(IN, $buf, 16)) {
        @x= unpack("H2" x $rb, $buf);
        $buf=~ s/[\x00-\x1f\x7f-\xff]/./g;
        $buf.= ' ' x (16-length($buf));
        printf ("%0${form}x0: %s [%s]\n"
        ,$i++,
        ,sprintf ("%s %s %s %s  %s %s %s %s - %s %s %s %s  %s %s %s %s
+", @x, @fill)
        ,$buf
        );
    }
}

###### dx -- undump the dump
#!/usr/bin/perl

if (scalar(@ARGV)) {
    foreach $file(@ARGV) {
        open (IN,$file);
        &undump(*IN);
        close (IN)
    }
}
else {
    &undump(*STDIN);
}

sub undump {
    local(*IN)= @_;
    local($_);
    while (<IN>) {
#        next unless s/^([0-9a-f]+)://;
        s/^([0-9a-f]+)://i;
        s/[^\-\s0-9a-f].*$//i;
        @match= /(\b[0-9a-f][0-9a-f]\b)/ig;
        print pack("H2" x scalar(@match), @match);
    }
}
[download]