mirror of
https://github.com/nillerusr/source-engine.git
synced 2025-02-23 04:44:13 +00:00
13 lines
244 B
Perl
13 lines
244 B
Perl
|
#!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;
|