26 lines
447 B
Raku
26 lines
447 B
Raku
$first=$last=$idx=0;
|
|
sub fmt {
|
|
printf ("\n ") if (($n % 8) == 0);
|
|
++$n;
|
|
my($val) = pop(@_);
|
|
printf (" '\\x%02x',", $val);
|
|
}
|
|
while (<>) {
|
|
local($ucs,$char,$rest) = split;
|
|
local($u)=hex($ucs);
|
|
local($c)=hex($char);
|
|
if ($u - $last > 6) {
|
|
if ($last != 0) {
|
|
$idx += $last - $first + 1;
|
|
}
|
|
$first=$u;
|
|
} else {
|
|
for ($m = $last + 1; $m < $u; ++$m) {
|
|
fmt (0);
|
|
}
|
|
}
|
|
fmt ($c);
|
|
$last=$u;
|
|
}
|
|
printf ("\n");
|