難しい質問だな
Perlなら既存コードのコピペで終わりそうだ