0

ページから： http ：//www.verypdf.com/document/pdf-format-reference/pg_0072.htm

同じ詳細を使用して圧縮と解凍を試みていますが、perlモジュール（LZW）が機能していません

Source ASCII codes : 45 45 45 45 45 65 45 45 45 66

Current Output :  20 1D 00 01 0014 01 01 24

Expected compressed code :80 0B 60 50 22 0C 0C 85 01

LZW圧縮を行うperlスクリプトを作成したい

コード：

use strict ;
  use Compress::LZW;

  my $fatdata ='-----A---B';
  my $thindata = $fatdata;

  my $compressed = compress($fatdata);
  $fatdata    = decompress($compressed);

  my $smallcompressed = compress($thindata, 9);
  $thindata        = decompress($smallcompressed, 9);

print $smallcompressed;

私は他のモジュールを使用しましたが、上記のコードは単なる例です。しかし、それでも私は正しい出力を得ていません

4

1 に答える 1

0

ドキュメントには、2 番目の引数の有効な値はと のみ12と記載されています。16

于 2013-03-05T13:01:01.087 に答える