kinnekoの日記: Netatalk and CAP code 2
日記 by
kinneko
HEX デコードする perl プログラム from fj.os.linux を中治さんが
改良したやつ from linuxppc-jp:5349
#! /usr/bin/perl
$Prefix = ":";
open(OUT, "|nkf -S");
while () {
s/[\r\n]+$//;
$str = $_;
while ($str =~ /^(.*)$Prefix([0-9A-Fa-z]{2})(.*)$/) {
$str = $1 . pack("H2", $2) . $3;
}
print OUT $str, "\n";
}
jcode.pl を使うともっと簡単になるのね。
nkf いらないので、普通こっちかな。
caplnk: CAP ファイルの EUC シンボリックリンクを自動生成
fj.sources/volume96/960203.01.gz
Plamo の Netatalk.tgz には格納されている模様。