Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

(Ovid - Genesis) Re(2): If God wrote a Perl script

by Ovid (Cardinal)
on Jan 03, 2001 at 03:19 UTC ( #49419=note: print w/ replies, xml ) Need Help??


in reply to Re: If God wrote a Perl script
in thread If God wrote a Perl script

Nothing fancy... just some spare time on my hands

#!/usr/local/perl use Create; DAY_1: { $universe = Create->new(); $universe->addLight; } DAY_2: { while ( 1 ) { @firmament = split $universe->existence, 2; last DAY_2 if $#firmament; } } DAY_3: { $water = []; $land = []; # Hmm... God should know better than to use an experimental # feature such as a pseudo-hash. Explains quite # a bit, really $firmament[0] = [ { water => 1, land => 2, } $water, $land ]; } DAY_4: { $universe->hookUpLights; } DAY_5: { push @{ $firmament[0]->{ water } }, $_ for( "fish", "cetaceans", "calamari (live and minus the breadi +ng)" ); push @{ $firmament[0]->{ land } }, $_ for ( "cattle", "serpents", "birds" ); } DAY_6: { $firmament[0]->[ $firmament[0]->[ 0 ]->{ ExtraStuff } = @{ $firmam +ent[0] } ] = "Humans"; # Ya see, he had to put humans somewhere to allow them to rule ove +r animals, # so he stuck them in the $firmament[0] pseudo-hash # Poor planning if I ever saw it... } DAY_7_AND_BEYOND: { sleep while 1; }

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.


Comment on (Ovid - Genesis) Re(2): If God wrote a Perl script
Download Code
Re: (Ovid - Genesis) Re(2): If God wrote a Perl script
by turnstep (Parson) on Jan 03, 2001 at 04:10 UTC

    Hrmm...one addition:

    DAY_7 : { sleep while 1; } DAY_8_AND_BEYOND: { if (time==(60*60*24*365*1966*-1)) { ## (This version of time is quite accurate) if (fork) { &Jesus; exit; } &END_OF_DAYS if $REVELATIONS and $SIGNS>=7; redo DAY_8_AND_BEYOND; }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://49419]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2014-08-30 09:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (292 votes), past polls