/ 
GeekCode-0.4
/ Convert::GeekCode

NAME

Convert::GeekCode - Convert and generate geek code sequences.

SYNOPSIS

use Convert::GeekCode; # exports geek_decode()

my @out = geek_decode(q(
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GB/C/CM/CS/CC/ED/H/IT/L/M/MU/P/SS/TW/AT d---x s+: a--- C++++ UB++++
P++++$ L+ E--- W+++$ N++ o? K w++(++++) O-- M- V-- PS+++ PE Y+
PGP- t+ 5? X+ R+++ !tv b++++ DI+++@ D++ G+++ e-- h* r+ z**
------END GEEK CODE BLOCK------
)); # yes, that's the author's geek code

my ($key, $val);
print "[$key]\n$val\n\n" while (($key, $val) = splice(@out, 0, 2));

DESCRIPTION

Convert::GeekCode converts and generates Geek Code sequences (cf. http://geekcode.com/). It supports different charsets and user-customizable codesets.

The geekgen and geekdec utilities are installed by default, and may be used to generate / decode geek code blocks, respectively.

SEE ALSO

geekgen, geekdec

AUTHORS

Autrijus Tang <autrijus@autrijus.org>

COPYRIGHT

Copyright 2001 by Autrijus Tang <autrijus@autrijus.org>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html