Help for this page

Select Code to Download

Select or download this

#! perl -lw
use strict;
...
print join ',', map{ sprintf '0x%04x', $_ } unpack 'v*', $_ while <IN>
+;
close OUT;
close IN;

Select or download this

perl -nle"BEGIN{$/=\16}print join',',map{sprintf'0x%04x',$_}unpack'v*'
+,$_" binfile >outfile