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

文档仅说12并且16是第二个参数的有效值。

于 2013-03-05T13:01:01.087 回答