Convert::GeekCode - Convert and generate geek code sequences
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));
Convert::GeekCode converts and generates Geek Code sequences (cf. http://geekcode.com/). It supports different langugage codes and user-customizable codesets.
Since version 0.5, this module uses YAML to represent the geek code tables, for greater readability and ease of deserialization. Please refer to http://www.yaml.org/ for more related information.
The geekgen and geekdec utilities are installed by default, and may be used to generate / decode geek code blocks, respectively.
To the extent possible under law, 唐鳳 has waived all copyright and related or neighboring rights to Convert-GeekCode.
This work is published from Taiwan.