toshs Web Site - zcfファイルのフォーマットその3 - 20 - 趣味のプログラム開発

投稿者： tosh 投稿日時： 2007-4-10 1:16:19 (34 ヒット)

やっぱりZlibで圧縮されてました。圧縮ファイルを展開したらテキストファイルが出てくるかと期待したんですが、バイナリファイルでした。先は長い。あと、文字コードはShift-JISになっているようです。今時はふつーUTF-8でしょ。しかも、data.nzxファイルは、圧縮前より圧縮後の方が大きい。やっぱりどうしてこんなフォーマットに変更したのかさっぱりわからん。

テスト用に↓こんなコードを書きました。全然perlらしくないのがアレですけど。

#!/usr/bin/perl --  # -*-Perl-*-

use Compress::Zlib;

binmode STDIN;

$buf = "";
while (read STDIN, $block, 1024) {
    $buf .= $block;
}
$buf = uncompress($buf);
# print $buf;

($c, $buf) = unpack("aa*", $buf);
while ($buf) {
  printf "%02x%4d",ord($c),ord($c);
  if ((ord(' ') <= ord($c)) and (ord($c) <= ord('z'))) {
    print " \'$c\'";
  }
  print "\n";
  ($c, $buf) = unpack("aa*", $buf);
}

評価: 0.00 (0 投票) - 投票する -

前へ - 次へ

投稿された内容の著作権はコメントの投稿者に帰属します。