You can write anything in Perl, apparently

[Fairportfan]

Code: Select all

my ($question, $to_be, $asleep); # version 0.1
 my $author = "Colin McMillen";
 my $apologies_to = "William Shakespeare";
 my $to_be = 1;

while ($to_be || (!$to_be)) {
 $question = "that";
 if (suffer($slings && $arrows_of_outrageous_fortune)
 or
 (take_arms_against($sea_of_troubles) && by_opposing() eq "end +them")) {
 do {
 $to_be = 0;
 $asleep = "no more";
 die "We end the heart-ache, and the thousand".
 " natural shocks that flesh is heir to";
 } while ("'tis a consumation devoutly to be wish'd.");
 }
 }
 sub suffer {
 return true;
 }
 sub take_arms_against {
 return true;
 }
 sub by_opposing {
 return "end them";
 }

From here.

[Dave]

'cept that isn't written in C at all. It's written in Perl, the "Swiss Army chainsaw" of scripting languages. If it can be programmed, it can probably be written in Perl... in at least 15 different coding styles and metaphors. Perl is nothing if not flexible.

[Fairportfan]

'cept that isn't written in C at all. It's written in Perl, the "Swiss Army chainsaw" of scripting languages. If it can be programmed, it can probably be written in Perl... in at least 15 different coding styles and metaphors. Perl is nothing if not flexible.

Arrrgh. And i even knew that! (I don't do C)