#!/usr/bin/perl -w
# (c) Saulius Petrauskas 2012
# Lentele atspausdina duomenis is eilutes.
package HexPrint;

use strict;

BEGIN {
    use Exporter ();
    our ($VERSION, @ISA, @EXPORT);
    $VERSION = 0.01;
    @ISA = qw(Exporter);
    @EXPORT = qw(&HexPrint);
}

sub HexPrint {
	my $str = shift;
	my $i = 0;
	my $s = '';
print "
+--------------------------------------------------+------------------+
| 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F  | 0123456789ABCDEF |
+--------------------------------------------------+------------------+
| ";
	$str =~ s/(.)/printf("%02X ",ord($1));$s.=$1;if($i++>14){$s=~s|[^ -~]|.|g;print " | $s |\n| ";$s='';$i=0;}/gse;
	if($i > 0) { # print tail
		$s=~s|[^ -~]|.|g;
		print "   "x(16-$i) . " | $s" . " "x(16-$i) . " |\n";
	}
print "+--------------------------------------------------+------------------+\n";
}

1;