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

从页面：

我尝试使用相同的细节来压缩和解压缩，它不工作任何perl模块（LZW）

我想创建一个perl脚本，它可以进行LZW压缩

代码：

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;

---

我用过其他模块，上面的代码只是一个例子。但是我仍然没有得到正确的输出

表示只有

12

和

16

是第二个参数的有效值。

谢谢发布代码。现在你能解释一下你的问题吗？你说的“不工作”是什么意思？问题是输出没有按预期进行。我期待80 0B 60 50 22 0C 0C 85 01，但它显示了20 1D 00 01 14 01 01 24即使我使用了这么多其他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;