|
Posted by Jimi-Carlo Bukowski-Wills on March 10, 2006, 6:37 am
Please log in for more thread options
NAME
Compress::AsciiFlate
SYNOPSIS
use Compress::AsciiFlate;
my $caf = new Compress::AsciiFlate;
# maybe set up some parameters here...
# there are plenty of things to play with, e.g:
# minimum word-size for encoding etc...
my $text = 'hello hello hello';
$caf->deflate($text);
print $text; # prints "_hello 1 1"
$caf->inflate($text);
print $text; # prints "hello hello hello"
This module sort of uses Number::Nary, but I couldn't
install the prerequisits on my laptop, so I made a
wee, self-contained, purely-perl emulation of it and
put the sub straight into the package...
|