##

#!/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
		);
	}
}

##

##

#!/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 () {
#		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);
	}
}

##

##

perl -e '$_=<