inspired by If God wrote a Perl script.
#!/usr/bin/perl
# verse taken from
# http://bible.gospelcom.net/
study $bible;
do {print everything()} until judgement_day();
sub everything {
$proverb="All the words of my mouth are just; none of them is croo
+ked or perverse";
split /;/, $proverb;
map {@saying=split //, reverse $_; scalar @proverb? (push @proverb
+, @saying[7],@saying[25]):(push @proverb, (@saying[3], @saying[7]));
+}@_;
@proverb;
}
sub judgement_day {
@God = ("Alpha" & "Omega", "First"&"Last","Beginning"&"End");
if (push @God, "too","far"){ # Rev 1-5 ;) {
foreach $seal ($seals[1..7]) {$seal="broken"; }; # Rev 6-
+8
foreach $angel ($angels[1..7]) {$trumpet="sounded"}; # Rev
+8-9
foreach $thunder ($thunders[1..7]) {undef}; # Rev 10
shift @firmament; # Rev 11
$beast{heads}=7;
$beast{horns}=10;
$beast{horns}{crowns}=10;
$beast{likeness} = "leopard" or "bear" or "lion";
$beast{powers}="many";
if ($man{opposes}==%beast) { die};
$man{mark}{location}="hand" or "head";
$man{mark}{number} = $beast{number};# Rev 13
$angel[1] = "sermonize" foreach (@tribe, @nation, @language, @
+people) ;
$angel[2] = eval{$babylon = undef};
if ($man{mark}{number} eq $beast{number}) {
$wine="God's wrathful vineyard, est 0.";
$man{torment}="eternal";
} #Rev 14
foreach $angel ($angels[1..7]) {
$bowl{contents} = $wrath && dump $bowl{contents};
$bowl{plague}= "unleashed"
} #Rev 16 - 18
if (undef($babylon)) {
$torture = $luxury;
$adulters eq "weeping";
$merchants eq "weeping";
$cargo eq "unsold";
$saints eq "rejoicing";
$heaven eq "rejoicing";
} # Rev 18
$devil{location} eq $beast{location} or $false_prophet{locatio
+n}; # Rev 21
@God = ("Alpha" & "Omega", "First"&"Last","Beginning"&"End");#
+ Rev 22
}
};
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|