Welcome to The Beast Bay General Thelema Science Art Scholarship The 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

    • 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.


    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.

    • 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)


    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 ]