| Acme-Lingua-Pirate-Perl documentation | Contained in the Acme-Lingua-Pirate-Perl distribution. |
be for eq, equal for ==seize or steal or plunder for shiftthrust for push, hurl for popkeelhaul or scuttle or sink or capsize for die - add " her" if you likecurse for warnthe booty or the treasure (or a treasure) for @_the gold or the doubloons for $_Davy Jones' Locker for $@, a whale (or the whale) for $! and a hornpipe or (the hornpipe) for $%the rope's end for $/sound off, yell or cry for printvast for uc, puny for lcsquint at for studycast off for return, sail off or weigh anchor for exitbilge: for __DATA__ and poop deck: for __END__
Acme::Lingua::Pirate::Perl - be writin' thy Perl like a swarthy sea-dog
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 shiftthrust for push, hurl for popkeelhaul or scuttle or sink or capsize for die - add " her" if you likecurse for warnthe booty or the treasure (or a treasure) for @_the gold or the doubloons for $_Davy Jones' Locker for $@, a whale (or the whale) for $! and a hornpipe or (the hornpipe) for $%the rope's end for $/sound off, yell or cry for printvast for uc, puny for lcsquint at for studycast off for return, sail off or weigh anchor for exitbilge: for __DATA__ and poop deck: for __END__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.
These are case-insensitive and can be followed by a non-word character (i.e., space or punctuation), allowing you to mix and match at will. Examples:
AVAST! YE SCURVY DOG!
Arrrrrr. Shiver me timbers matey.
Yar! Curse thy deadlights, sprog!
yo-ho-ho, scallywags
More handy piratical vocab can be found at: http://www.puzzlepirates.com/Vocabulary.xhtml
Take heed! September 19th be International Talk Like A Pirate Day! An' if thy code ain't shipshape, ye'll be walkin' the plank!
Earle Martin <hex [at] cpan [dot] org>, but really Simon Wistow <simon [at] twoshortplanks [dot] com>, because this is a straight rip of his Acme::Lingua::Strine::Perl!
It's all london.pm's fault, of course.
This module is dedicated to Captain Jack Sparrow, the best pirate I have ever seen.
| Acme-Lingua-Pirate-Perl documentation | Contained in the Acme-Lingua-Pirate-Perl distribution. |
package Acme::Lingua::Pirate::Perl; require 5.005_62; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our $VERSION = '0.13'; use Filter::Simple sub { s{(\W)be}{$1eq}g; s{(\W)equal}{$1==}g; s{(\W)seize}{$1shift}g; s{(\W)steal}{$1shift}g; s{(\W)plunder}{$1shift}g; s{(\W)thrust}{$1push}g; s{(\W)hurl}{$1pop}g; s{(\W)moor}{$1wait}g; s{(\W)keelhaul(?: her)?}{$1die}g; s{(\W)scuttle(?: her)?}{$1die}g; s{(\W)sink(?: her)?}{$1die}g; s{(\W)capsize(?: her)?}{$1die}g; s{(\W)curse}{$1warn}g; s{(\W)the booty}{$1\@_}g; s{(\W)(?:a|the) treasure}{$1\@_}g; s{(\W)the gold}{$1\$_}g; s{(\W)the doubloons}{$1\$_}g; s{(\W)the rope's end}{$1\$/}g; s{(\W)Davy Jones' Locker}{$1\$\@}g; s{(\W)(?:a|the) whale}{$1\$!}g; s{(\W)(?:a|the) hornpipe}{$1\$%}g; s{(\W)sound off}{$1print}g; s{(\W)yell}{$1print}g; s{(\W)cry}{$1print}g; s{(\W)vast}{$1uc}g; s{(\W)puny}{$1lc}g; s{(\W)squint at}{$1study}g; s{(\W)cast off}{$1return}g; s{(\W)sail off}{$1exit}g; s{(\W)weigh anchor}{$1exit}g; s{(\W)bilge:}{$1__DATA__g}; s{(\W)poop deck:}{$1__END__}g; # random interjections are case-insensitive... s{(\W)ar[r]+(?:\W)}{$1}gi; s{(\W)ya[r]+(?:\W)}{$1}gi; s{(\W)rar[r]*(?:\W)}{$1}gi; # Cap'n Gellyfish of the good ship Fabulous s{(\W)avast(?:\W)}{$1}gi; s{(\W)bucko(?:\W)}{$1}gi; s{(\W)curse ye(?:\W)}{$1}gi; s{(\W)curse thy deadlights(?:\W)}{$1}gi; s{(\W)gangway(?:\W)}{$1}gi; s{(\W)matey(?:\W)}{$1}gi; s{(\W)me hearties(?:\W)}{$1}gi; s{(\W)scallywag[s]?(?:\W)}{$1}gi; s{(\W)shiver me timbers(?:\W)}{$1}gi; s{(\W)splice the mainbrace(?:\W)}{$1}gi; s{(\W)sprog[s]?(?:\W)}{$1}gi; s{(\W)swab[s]?(?:\W)}{$1}gi; s{(\W)ye scurvy dog[s]?(?:\W)}{$1}gi; s{(\W)yo[\s-]ho(?:[\s-]ho)?(?:\W)}{$1}gi; }; 1; __END__