The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Compress::LZW -- Pure perl implementation of LZW

WARNING

This module does not yet support compress(1)'s .Z files!! Nor is its interface stable. Hence the alpha status. Expect support to come soon.

WARNING

Read above once more :)

SYNOPSIS

use Compress::LZW;

my $compressed = compress($fatdata);
my $fatdata    = decompress($compressed);

my $smallcompressed = compress($thindata, 12);
my $thindata        = decompress($smallcompressed, 12);

DESCRIPTION

Compress::LZW it a perl implementation of the newly free LZW compression algorithm. It defaults to building a 16-bit codeword table, but provides the ability to choose a 12-bit table also. Depending on the size of your data, the 12-bit table may provide better compression.

Functions

compress

Takes a string as its first argument, and returns the compressed result. You can also specify the size of your codeword table in @_[1], choosing either 12 or 16. 16 is the default. compress will

decompress

Takes a string as its first argument, and returns the decompressed result. You can also specify the size of your codeword table in @_[1], choosing either 12 or 16. 16 is the default.

EXPORTS

Compress::LZW exports: compress decompress That's all.

SEE ALSO

Other Compress::* modules, especially Compress::LZV1, Compress::LZF and Compress::Zlib.

AUTHOR

Sean O'Rourke, <seano@cpan.org> - Original author, Compress::SelfExtracting

Matt Howard <mhoward@hattmoward.org> - Compress::LZW

Bug reports welcome, patches even more welcome.

COPYRIGHT

Copyright (C) 2003 Sean O'Rourke & Matt Howard. All rights reserved, some wrongs reversed. This module is distributed under the same terms as Perl itself. Let me know if you actually find it useful.

MH: Also, credit to Rocco Caputo for a 2nd implementation to study. Thanks!