PERL LZW壓縮與輸出碼長

9位從頁： http://www.verypdf.com/document/pdf-format-reference/pg_0072.htm PERL LZW壓縮與輸出碼長

我試圖使用相同的細節，以壓縮和解壓，它不工作的任何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;

我已經使用過任何其他模塊，上面的代碼就是例子。但我仍然沒有得到正確的輸出

來源

2013-03-05 Tree

感謝您發佈的代碼。現在你能解釋你遇到的問題嗎？「不工作」是什麼意思？ – 2013-03-05 12:34:03

問題是輸出沒有按預期進行。我期待80 0B 60 50 22 0C 0C 85 01，但它顯示了20 1D 00 01 14 01 01 24 – Tree 2013-03-05 12:36:15

documentation只說12和16是第二個參數的有效值。

來源

2013-03-05 13:01:01 ikegami

即使我使用了很多其他Perl模塊。甚至認爲它不正確的結果 – Tree 2013-03-05 13:28:04

PERL LZW壓縮與輸出碼長

回答

相關問題