从页面: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;我已经使用了任何其他模块,上面的代码只是示例。但是我仍然没有得到正确的输出
发布于 2013-03-05 21:01:01
documentation表示对于第二个参数,只有12和16是有效值。
https://stackoverflow.com/questions/15223016
复制相似问题