12/03/07 21:04:09.61 .net
>>355
入出力サンプルもPerl4も無いので動作未確認。Perl5 で -wc は通る。
#!/usr/bin/perl -n
@H=APZLGITYEOXUKSVN=~/./g;$"='';$H='[0-9A-F]{2}';if(/^[@H]{8}/){@G{@H}=(0..16);
push(@_,@G{/./g});printf("%04X?%02X-%02X\n",($_[3]&7)<<12|($_[4]&8)<<8|($_[5]&7
)<<8|($_[1]&8)<<4|($_[2]&7)<<4|$_[3]&8|$_[4]&7|32768,($_[6]&8)<<4|($_[7]&7)<<4|
$_[5]&8|$_[6]&7,($_[0]&8)<<4|($_[1]&7)<<4|$_[0]&7|$_[7]&8)}elsif(/^($H$H)[?:]($
H)-($H)/i){push(@G,@H);$a=hex($1);$k=hex($2);$v=hex($3);print@G[$v&7|($v>>4)&8,
($v>>4)&7|($a>>4)&8,($a>>4)&7|8,($a>>12)|$a&8,$a&7|($a>>8)&8,($a>>8)&7|$k&8,$k&
7|($k>>4)&8,($k>>4)&7|$v&8],$/}