Tuesday, November 13, 2007

Perl of Wisdom

This is for the spiritual geek in all of us: a copy of the Lord's Prayer that compiles in Perl.

#perl of_wisdom

open(Matthew6,$0); {print <Matthew6>;}

our %father; $who = "in heaven";
bless \$thy[name];

for ($earth .. $heaven) {
$thy[kingdom] + $come;
$thy[will] = $done;
}

sub mit { our $bread = localtime(today);

foreach $sin (@us) {
undef my $sin
if my $forgive;

return if $temptation or $evil; }}


for ( $thine = $kingdom and $power and $glory) {
for ($ever and $ever) {}; }

4 comments:

Nod said...

Good to know I'm not the only crazy one. Found this on the 'Net. http://www.dbforums.com/archive/index.php/t-849288.html

#!/usr/bin/perl

PRAYER:

my $Lord = my $shepherd;
my $wants = {};

for ( ever,
let, me ) { sleep in,
green, pastures
and send me, beside,
still, waters
and my $soul = restored; }

send me,
in, righteousness;
for ( your, names, sake ) {

do stay if I;
seek ( death and shadow
and I, shall,
fear ); not evil;
for ( $you = with, me, your )
{ rod and $staff = my $comfort }

Goodness and mercy;
shall follow me
until all, days
and I; do last }
for (ever and ever,
in, Gods ) { house }

# Psalm 23
# A perl prayer
# Ingvar Hagelund 2003

Nod said...

This is even better:

char*lie;

double time, me= !0XFACE,

not; int rested, get, out;

main(ly, die) char ly, **die ;{

signed char lotte,


dear; (char)lotte--;

for(get= !me;; not){

1 - out & out ;lie;{

char lotte, my= dear,

**let= !!me *!not+ ++die;

(char*)(lie=


"The gloves are OFF this time, I detest you, snot\n\0sed GEEK!");

do {not= *lie++ & 0xF00L* !me;

#define love (char*)lie -

love 1s *!(not= atoi(let

[get -me?

(char)lotte-


(char)lotte: my- *love -

'I' - *love - 'U' -

'I' - (long) - 4 - 'U' ])- !!

(time =out= 'a'));} while( my - dear

&& 'I'-1l -get- 'a'); break;}}

(char)*lie++;


(char)*lie++, (char)*lie++; hell:0, (char)*lie;

get *out* (short)ly -0-'R'- get- 'a'^rested;

do {auto*eroticism,

that; puts(*( out

- 'c'

-('P'-'S') +die+ -2 ));}while(!"you're at it");


for (*((char*)&lotte)^=

(char)lotte; (love ly) [(char)++lotte+

!!0xBABE];){ if ('I' -lie[ 2 +(char)lotte]){ 'I'-1l ***die; }

else{ if ('I' * get *out* ('I'-1l **die[ 2 ])) *((char*)&lotte) -=

'4' - ('I'-1l); not; for(get=!


get; !out; (char)*lie & 0xD0- !not) return!!

(char)lotte;}


(char)lotte;

do{ not* putchar(lie [out

*!not* !!me +(char)lotte]);

not; for(;!'a';);}while(

love (char*)lie);{


register this; switch( (char)lie

[(char)lotte] -1s *!out) {

char*les, get= 0xFF, my; case' ':

*((char*)&lotte) += 15; !not +(char)*lie*'s';

this +1s+ not; default: 0xF +(char*)lie;}}}

get - !out;

if (not--)

goto hell;

exit( (char)lotte);}

Nod said...

And the most lyric:

#!/usr/bin/perl
APPEAL:
listen (please, please);
open yourself, wide;
join (you, me),
connect (us,together),
tell me.
do something if distressed;
@dawn, dance;
@evening, sing;
read (books,$poems,stories) until peaceful;
study if able;
write me if-you-please;
sort your feelings, reset goals, seek (friends, family, anyone);
do*not*die (like this)
if sin abounds;
keys (hidden), open (locks, doors), tell secrets;
do not, I-beg-you, close them, yet.
accept (yourself, changes),
bind (grief, despair);
require truth, goodness if-you-will, each moment;
select (always), length(of-days)
# listen (a perl poem)
# Sharon Hopkins
# rev. June 19, 1995

Nod said...

#!/usr/bin/perl

open Matthew6, $0 ; print <Matthew6>;

our $Father, who, art-in-heaven;
hallowed: be.Thy.name;
thy: kingdom-come;
thy: will-be-done;
on-earth, as-it-is-in-heaven;
give: us, today, our $daily-bread
and forgive us our $tresspasses,
as we forgive forgive those who trespass against us
and lead us not into temptation,
but deliver us from evil. Amen

LinkWithin

Related Posts with Thumbnails