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.
11 lines
155 B
11 lines
155 B
18 years ago
|
#!/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;
|