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.
10 lines
155 B
10 lines
155 B
#!/usr/bin/perl -w
|
|
open F,$ARGV[0];
|
|
undef $/;
|
|
my $str=<F>;
|
|
open D,qq(>$ARGV[1]);
|
|
while($str=~/(0x[0-9a-f]+)[,}]/g)
|
|
{
|
|
print D pack("C",hex($1));
|
|
}
|
|
close D;
|
|
|