You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
244 B
13 lines
244 B
#!perl
|
|
open( HANDLE,shift) || die;
|
|
undef $/;
|
|
binmode HANDLE;
|
|
$data=<HANDLE>;
|
|
$ctr=0;
|
|
for($i=0;$i<length($data);$i++)
|
|
{
|
|
$out.=sprintf("0x%02x,", unpack("C", substr($data,$i,1)) );
|
|
$out.="\n" if ( ( $ctr % 20) == 19);
|
|
$ctr++;
|
|
}
|
|
print $out;
|