bin2hex.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl
$len = 0;
while ( read(STDIN,$ch,1) ) {
    $cc = ord($ch);
    $len += printf ("%x", $cc);
    if ( $len > 72 ) {
	print "\n";
	$len = 0;
    } else {
	print " ";
	$len++;
    }
}
print "\n" if ( $len );
exit 0;