从页面: 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;
我使用过任何其他模块,上面的代码只是示例。但我仍然没有得到正确的输出