Koders Code Search: dictcomp.pl

download

dictcomp.pl
Language: Perl
LOC: 10

Project Info
WikiOnCD
Server: BerliOS (SVN)
Type: svn

$BerliOS (SVN)\w\wikioncd\trunk\wikioncd\$ ...\w\wikioncd\trunk\wikioncd\
build-dictionary.pl bzr-inline.pm bzr.pm convert.pl count-words.pl dictcomp.pl dictcomp.pm gen-dict.pl inline-bzip2.pl parser.pl retrieve.pl server.pl w2h.pl

#!/usr/bin/perl
#
require 'dictcomp.pm';

my $text = join '', (<>);

my $c = Compress::Dictionary::ADR::new_for_compress("dictionary");
my $compressed = $c->compress($text);
print $compressed;

my $d = Compress::Dictionary::ADR::new_for_decompress("dictionary");

open my $out, '>', 'decompressed.txt';
my $decompressed = $d->decompress($compressed);
print $out $decompressed;
close $out;