Data::Hexdumper(3pm) | User Contributed Perl Documentation | Data::Hexdumper(3pm) |
Data::Hexdumper - Make binary data human-readable
use Data::Hexdumper qw(hexdump); print hexdump( data => $data, # what to dump # NB number_format is deprecated number_format => 'S', # display as unsigned 'shorts' start_position => 100, # start at this offset ... end_position => 148 # ... and end at this offset ); print hexdump( "abcdefg", { output_format => '%4a : %C %S< %L> : %d' } );
"Data::Hexdumper" provides a simple way to format arbitrary binary data into a nice human-readable format, somewhat similar to the Unix 'hexdump' utility.
It gives the programmer a considerable degree of flexibility in how the data is formatted, with sensible defaults. It is envisaged that it will primarily be of use for those wrestling alligators in the swamp of binary file formats, which is why it was written in the first place.
The following subroutines are exported by default, although this is deprecated and will be removed in some future version. Please pretend that you need to ask the module to export them to you.
If you do assume that the module will always export them, then you may also assume that your code will break at some point after 1 Aug 2012.
Does everything. Takes a hash of parameters, one of which is mandatory, the rest having sensible defaults if not specified. Available parameters are:
A string specifying how to format the data. It can be any of the following, which you will notice have the same meanings as they do to perl's "pack" function:
Note that 64-bit formats are *always* available, even if your perl is only 32-bit. Similarly, using < and > on the S and L formats always works, even if you're using a pre 5.10.0 perl. That's because this code doesn't use "pack()".
%4a : %C %S %L> %Q : %d
which will, on each line, display first the address (consisting of '0x' and 4 hexadecimal digits, zero-padded if necessary), then a space, then a colon, then a single byte of data, then a space, then an unsigned 16-bit value in native endianness, then a space, then an unsigned 32-bit big-endian value, ... then a colon, a space, then the characters representing your 15 byte record.
You can use exactly the same characters and character sequences as are specified above for number_format, plus 'a' for the address, and 'd' for the data. To output a literal % character, use %% as is normal with formats - see sprintf for details. To output a literal < or > character where it may be confused with any of the {S,L,Q}{<,>} sequences, use %< or %>. So, for example, to output a 16-bit value in native endianness followed by <, use %S%<.
%a takes an optional base-ten number between the % and the a signifying the number of hexadecimal digits. This defaults to 4.
%{C,S,L,Q} also take an optional base-ten number between the % and the letter, signifying the number of repeats. These will be separated by spaces in the output. So '%4C' is equivalent to '%C %C %C %C'.
Anything else will get printed literally. This format will be repeated for as many lines as necessary. If the amount of data isn't enough to completely fill the last line, it will be padded with NULL bytes.
To specify both number_format and output_format is a fatal error.
If neither are given, output_format defaults to:
' %4a : %16C : %d'
which is equivalent to the old-style:
number_format => 'C'
Alternatively, you can supply the parameters as a scalar chunk of data followed by an optional hashref of the other options:
$results = hexdump($string); $results = hexdump( $string, { start_position => 100, end_position => 148 } );
Data::Dumper
Data::HexDump if your needs are simple
perldoc -f unpack
perldoc -f pack
'number_format' is now implemented in terms of 'output_format'. Your data will be padded to a multiple of 16 bytes. Previously-silent code may now emit warnings.
The mappings are:
'C' => ' %4a : %C %C %C %C %C %C %C %C %C %C %C %C %C %C %C %C : %d' 'S' => ' %4a : %S %S %S %S %S %S %S %S : %d' 'S<' => ' %4a : %S< %S< %S< %S< %S< %S< %S< %S< : %d' 'S>' => ' %4a : %S> %S> %S> %S> %S> %S> %S> %S> : %d' 'L' => ' %4a : %L %L %L %L : %d' 'L<' => ' %4a : %L< %L< %L< %L< : %d' 'L>' => ' %4a : %L> %L> %L> %L> : %d' 'Q' => ' %4a : %Q %Q : %d' 'Q<' => ' %4a : %Q< %Q< : %d' 'Q>' => ' %4a : %Q> %Q> : %d'
and of course:
'V' => 'L<' 'N' => 'L>' 'v' => 'S<' 'n' => 'S>'
Behaviour of %a is not defined if your file is too big.
Behaviour of %NNa is not defined if NN is too big for your sprintf implementation to handle 0x%0${NN}X.
I welcome constructive criticism and bug reports. Please report
bugs either by email or via RT:
<http://rt.cpan.org/Public/Dist/Display.html?Name=Data-Hexdumper>
The best bug reports contain a test file that fails with the
current code, and will pass once it has been fixed. The code repository is
on Github:
<git://github.com/DrHyde/perl-modules-Data-Hexdumper.git>
Copyright 2001 - 2012 David Cantrell <david@cantrell.org.uk>
This software is free-as-in-speech software, and may be used, distributed, and modified under the terms of either the GNU General Public Licence version 2 or the Artistic Licence. It's up to you which one you use. The full text of the licences can be found in the files GPL2.txt and ARTISTIC.txt, respectively.
This module is also free-as-in-mason software.
MHX, for reporting a bug when dumping a single byte of data
Stefan Siegl, for reporting a bug when dumping an ASCII 0
Steffen Winkler, for inspiring me to use proper output formats
2021-01-05 | perl v5.32.0 |