A simple wrapper around HuffmanCoder for poking at it

Ignore-this: 6305d1d6905b2917e9e89411920431d5

darcs-hash:20090502055245-4d648-94f4d4c036d50c359119e2dd681d929fa0232503.gz

diff --git a/HuffmanCoder_filter.pl b/HuffmanCoder_filter.pl
new file mode 100644 (file)
index 0000000..a2b2055
--- /dev/null
+++ b/HuffmanCoder_filter.pl
@@ -0,0 +1,18 @@
+use warnings;
+use strict;
+#use Data::Dumper;
+
+require Instance::MasterCoder;
+require Instance::HuffmanCoder;
+use Instance::Definitions qw( @debug_code_chars $instance_huffman_table1 
+                    $MESSAGE_START $MESSAGE_END );
+
+my $mastercoder = Instance::MasterCoder->new(\@debug_code_chars, $MESSAGE_START, $MESSAGE_END);
+my $huffmancoder = Instance::HuffmanCoder->new($mastercoder, $instance_huffman_table1);
+
+while(my $in = <>) {
+  chomp $in;
+  my $enc = $huffmancoder->encode($in);
+  # my $dec = $huffmancoder->decode($enc);
+  print $in, " ==> ", $enc, " (", length $enc, ")\n" ; # " ==> ", $dec, "\n";
+}