Сжатие 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

Я хочу создать 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;

Я использовал любые другие модули, приведенный выше код является лишь примером. Но все же я не получаю правильный вывод

Answer 1

В документации сказано только 12 а также 16 допустимые значения для второго аргумента.