Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
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 } };

In reply to What if God were one of us? by boo_radley

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others rifling through the Monastery: (3)
    As of 2014-09-24 01:10 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      How do you remember the number of days in each month?











      Results (243 votes), past polls