Hermetic.com » Beast Bay

//search////add////forum////info//

Bookmark this page on these social networks

The javascript bookmark tool appears to not be working or you have javascript disabled  

Like this page on Facebook

Like THL on Facebook

 

+1 this page on Google

+1 THL on Google

 

 

The javascript metadata tool appears to not be working or you have javascript disabled

 

 

Join the
Hermetic Library discussions
at the


Hrmtc Underground BBS

 

 


Welcome to The Beast BayGeneral ThelemaScienceArtScholarshipThe Beast Bay website

 up a level
 search
 main

  For the Translation Project…

General Thelema Posted by <Marfiza> on June 25, 2000 @ 05:11 PM
from the perls-before-swine dept.

Okay, so I have too much time on my hands. Or something. And it's only an initial effor, after all. Gotta do something silly to remind myself what I'm really here for. And perl -c doesn't choke on it.

Though Unca' Al prolly would've.

    - M


#!/usr/local/bin/perl

#         The Book of the Law
#
#             Chapter I
#

# 1.Had! The manifestation of Nuit.
$Had = open(NUIT);

# 2.The unveiling of the company of heaven. 
while (<NUIT>) {
        print $_;
}

# 3.Every man and every woman is a star. 
foreach $person (keys %People) {
        if ($People{$person}{gender} == "male"
                || $People{$person}{gender} == "female")
        {
                $People{$person}{what} = "star";
        }
}

# 4.Every number is infinite; there is no difference. 
do {
        print "Enter two comma-separated numbers: ";
        $numbers = <STDIN>;
        @numbers = split /,/, $numbers;
        @numbers[0] = inf if @numbers[0] += 0;
        @numbers[1] = inf if @numbers[1] += 0;
        if ((@numbers[0] == @numbers[1]) && (@numbers[0] += 0)) {
                print "No difference.  Again? ";
                $again = <STDIN>;
        } else {
                print "Incorrect input.  ";
        }
} until $again =~ /n/i;

# 5.Help me, o warrior lord of Thebes, in my unveiling before
#     the Children of men! 
if (-e "/home/Thebes/warlord/help") {
        chmod 0666, NUIT;
}

# 6.Be thou Hadit, my secret centre, my heart & my tongue! 
my ($secret_centre, $heart, $tongue) = @Hadit;

# 7.Behold! it is revealed by Aiwass the minister of Hoor-paar-kraat. 
# 8.The Khabs is in the Khu, not the Khu in the Khabs. 
%HPK = {
        culture => "Egypt",
        form => "Hawk-headed, mystical",
        minister => [
           { name => "Aiwass",
             number => 418,
             revelation => ($Khu =~ /Khabs/ && $Khabs !~ /Khu/) },
        ]
};

# 9.Worship then the Khabs, and behold my light shed over you! 
do {
        $Khabs->worship();
} until behold(my $light);

# 10.Let my servants be few & secret: they shall rule the many & the known.
@svtgrp = getgrnam all_svts;
my @svts = split / /, @svtgrp[3];
splice(@svts, 10, ((scalar @svts) - 10));
open(SERVANTS,">./svtlist");
while (<@svts>) {
        print SERVANTS "$_\n";
}
close(SERVANTS);
&chown_by_name("root","./svtlist");
use File::Find;
find (\&wanted, '/');
sub wanted {
        push @many, "$File::Find::name\n" if -rR
}
@svts->rule(@many);

# 11.These are fools that men adore; both their Gods & their men are fools. 
$men->adore($fools{Gods}, $fools{men});

# 12.Come forth, o children, under the stars, & take your fill of love! 
while ($children{love}{full} >= 0 && $children{love}{full} < 100) {
        if ($children{where} == "under the stars") {
                $children{love}{full}++;
        }
}



<  |  >

 

  Related Links
Articles on General Thelema
Also by Marfiza
Contact <author>

The Fine Print: The following comments are owned by whoever posted them.


**Re: For the Translation Project...**
by Jessica Govoni on Monday June 26, @12:19AM

Ok, what is this? I am not a computer person, I feel I am missing some of the funny part of this post…

Jessica


<ul>
<li>

|Re: For the Translation Project…\\
by Michael Sanborn on Monday June 26, @09:16AM
|

Well, yes, this does come from the realm of the hyper-obscure. It's the start of a translation of Liber AL into Perl, the computer scripting language. Very silly, very funny. After all, they've translated the Bible into Klingon, so this seems only reasonable.\\
\\

</li>
</ul>

**Re: For the Translation Project...**
by the Reverend Rob on Wednesday June 28, @02:06AM

I don't think Uncle Al's code would have run, if his Greek is any indication.

Call me a cynic.


<ul>
<li>

|Re: For the Translation Project…\\
by <Marfiza> on Wednesday June 28, @01:36PM\\|

Okay, you're a cynic. :)\\
\\
- M (who also is appalled by AC's Greek)\\


</li>
</ul>

**Re: For the Translation Project...**
by <Andy> on Friday September 15, @12:44PM

Wow, that's pretty cool. Is Perl a more 'Thelemite-ish' lingo than say Java?

Anyway, I guess somone should come up w/ an obscure perl way to do greetings!


The Fine Print: The following comments are owned by whoever posted them.


    “As St. Paul says, 'Without shedding of blood there is no remission,' and who are we to argue with St. Paul?” – Aleister Crowley All trademarks and copyrights on this page are owned by their respective companies. Comments are owned by the Poster. [ home | search ]

Home | Features | Fellows | Figures | Forms | Reflections

Hermetic.com | About | Contact | Participate | Become a Patron

Hermetic Hosting | Hermeneuticon | Hrmtc Underground

This is an official and authorized archive of The Beast Bay

Hosted by Hermetic.com

— fileinfo: path: '../hermetic.com/beastbay/961978260/index.html' created: 2016-03-15 modified: 2016-03-15 …