17 lines
210 B
Plaintext
17 lines
210 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
while(<>) {
|
||
|
|
if (/^\t\t\t( [0-9a-f]{2,4})+$/) {
|
||
|
|
@hex = split;
|
||
|
|
foreach $i (@hex) {
|
||
|
|
@c = pack("H4", $i);
|
||
|
|
foreach $j (@c) {
|
||
|
|
print "$j";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
print "\n";
|
||
|
|
} else {
|
||
|
|
print
|
||
|
|
}
|
||
|
|
}
|