Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

What if God were one of us?

by boo_radley (Parson)
on Jan 03, 2001 at 21:32 UTC ( #49563=obfuscated: print w/replies, xml ) Need Help??

inspired by If God wrote a Perl script.
#!/usr/bin/perl # verse taken from # 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 } };

Replies are listed 'Best First'.
Re: What if God were one of us?
by boo_radley (Parson) on Jan 03, 2001 at 21:49 UTC
    for added wrath, place this at the start of judgement_day
    $wrath= "vengeful";.
    just be sure you understand exactly what will happen!
    And, as always, I ♥ your comments :)
Re: What if God were one of us?
by cogent (Monk) on Jan 03, 2001 at 22:00 UTC
      Not necessarily.

      Though the code itself does not appear to be blatantly obfuscated, a quick gander at it will not let you easily know the output, because you are reading it like Perl Poetry, not obfuperl.

      That's Obfuscation through Diversion.

      Cheers boo_radley!

      Jeremiah 49:32 - And their camels shall be a booty. . .

        Blargh. My fault. I'm sure I tried executing it, but only got compilation errors. I must have done something wrong that time, because now that I've tried it again, I see your point.

        Damn good obfuscation. Mayhap there oughtta be a sub-genre of obfuscation: steganobfuscation. :-)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://49563]
Approved by root
[SwaJime]: Ran into an interesting piece of code today ...
[SwaJime]: select name,status, status2 from __ where status & status < 13 and status2 & 16 <> 16
[SwaJime]: I'm thinking that looks messed up. Sorry for OT ... but I know y'all are smart :-)
[SwaJime]: I expected items to not be selected if status was 0 ... but they were selected
[SwaJime]: any thoughts?

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2017-08-22 17:57 GMT
Find Nodes?
    Voting Booth?
    Who is your favorite scientist and why?

    Results (337 votes). Check out past polls.