zloader/c2bin

   1 #!/usr/bin/perl -w
   2 open F,$ARGV[0];
   3 undef $/;
   4 my $str=<F>;
   5 open D,qq(>$ARGV[1]);
   6 while($str=~/(0x[0-9a-f]+)[,}]/g)
   7 {
   8 print D pack("C",hex($1));
   9 }
  10 close D;
  11