This is originally based on Hossman's thing that does the same thing, which uses code that was part of Webcollage. (I couldn't find it now.)

Whatever. A well oiled machine needs many ingredients.

Requires gnome2 to set the background. Could use help setting it for other systems.

EDIT:replacing dos-style newlines. how did those get there?

EDIT 2: try flickr mode now.

Prst stands for "Preprocessor for Static HTML".

Prst is for generating a HTML page with a lot of code that would be cumbersome to write by hand. It's like PHP only you write in Perl and it's not intended for dynamic page generation.

To generate a webpage, you write a template where inside <% %> tags you call perl functions and their output is substituted for the tag.

See Prst's webpage.

This is a straightforward implementation of Huffman coding in pure Perl. The module is not intended to be used in real applications as such; rather, this is an educational module, which can be used to demonstrate how it can be done.

Included in the module documentation are a simple compression and an equally simple decompression program, which demonstrate how the module can be used in compressing text files.

UPDATE: use 5.008_000 instead of 5.000_008, of course. Thanks, geekphilosopher!

UPDATE 2: Removed the use line altogether. tye has good arguments why it's harmful.

function mapcar (func, col) {
    /*
      =item ARRAY = mapcar( func, col )

      Apply FUNC to each element of COL, and make an array of the
      results. The result is an array just as long as COL. COL may be
      anything that has a length attribute and can be indexed into lik
+e an
      array.
    */

    var out = new Array();
    for ( var i = 0; i < col.length; ++i ) {
    var elt = col[i];
        var val = func( elt );
        out.push( val );
    }
    return out;
}
[download]

becomes...

=item ARRAY = mapcar( func, col )

Apply FUNC to each element of COL, and make an array of the
results. The result is an array just as long as COL. COL may be
anything that has a length attribute and can be indexed into like an
array.

=cut
[download]