带输出代码的PERL LZW压缩长度为9位

Question

来自页面： 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;

我已经使用过任何其他模块，上面的代码只是示例。但我仍然没有得到正确的输出

Answer 1

documentation表示只有12和16是第二个参数的有效值。