.......Hi Sluggers: I have Perl code written in various .pl files. One main file uses
Objective and Problem: I tried to use Morse.pm to hide the code in the POD formatted files only. The code is hidden when I first run them from my PC. However the main script file which is not Morsed cannot read the Morsed encoded code.
After finding Morse so funny it reminded me of the article I read last year that there is a Perl module for writing Perl in Latin. I looked it up and found a few other funny snippets ....
Lingua::Romana::Perligata -------------------------
see http://www.csse.monash.edu.au/~damian/papers/HTML/Perligata.html
#! /usr/local/bin/perl -w use Lingua::Romana::Perligata; adnota Illud Cribrum Eratothenis maximum tum val inquementum tum biguttam tum stadium egresso scribe. vestibulo perlegementum da meo maximo . maximum tum novumversum egresso scribe. da II tum maximum conscribementa meis listis. dum damentum nexto listis decapitamentum fac sic lista sic hoc tum nextum recidementum cis vannementa da listis. next tum biguttam tum stadium tum nextum tum novumversum scribe egresso. cis
Nigerian --------
#!/usr/bin/perl use Acme::Lingua::NIGERIAN; DEAR SIR, I AM THE SON OF LATE PRESIDENT ONE-OR-THE-OTHER OF NIGERIA. TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT "H!!!ELLO N!!!IGERIA\N"; TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION, "\N"; TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION + 25, "\N";
Pirate ------
use Acme::Lingua::Pirate::Perl;
Then use the following bits o' argot to pepper up yer Perl:
* be for eq, equal for == * seize or steal or plunder for shift * thrust for push, hurl for pop * keelhaul or scupper or sink or capsize for die * curse for warn * the booty or the treasure for @_ * the gold or the doubloons for $_ * Davy Jones' Locker for $@, a whale for $! and a hornpipe for $% * sound off, yell or cry for print * vast for uc, puny for lc * squint at for study * cast off for return, sail off for exit
You also have a wide range of traditional pirate vocabulary to scatter through your code and make it all the more piratical, although they won't cause anything to actually happen, except perhaps terrifying any landlubbers who happen to read your code.
* Arr! * Arrr! * Arrrr! * Yar! * Yarr! * Yarrr! (note the varying levels of emphasis to match your mood...) * Avast! * Shiver me timbers! * Splice the mainbrace! * Yo ho! * Yo ho ho!
-- Mike Lake Caver, Linux enthusiast and interested in anything technical.
-- SLUG - Sydney Linux User's Group - http://slug.org.au/ More Info: http://lists.slug.org.au/listinfo/slug
