hexdump.pl

hexdump.pl

#!/usr/bin/env perl
# A hex dumping function I use for work purposes.

use warnings;
use strict;

hex_dump("ABCDEFGHIJKLMNOPQRTUVWXYZ0123456789");

sub hex_dump {
        my ($payload) = @_;

        my @octets = split '', $payload;
        while (@octets) {
                my @bits = splice @octets, 0, 16;

                foreach my $bit (@bits) {
                        printf "%02s ", unpack("H2", $bit);
                }

                print " ";

                if (scalar(@bits) < 16) {
                        my $extra_spaces = 16 - scalar(@bits);
                        print '   ' x $extra_spaces;
                }

                foreach my $bit (@bits) {
                        if ($bit =~ /[[:print:]]/) {
                                print $bit;
                        } else {
                                print '.';
                        }
                }

                print "\n";
        }
}