This JAPH was uncovered on the Moon, near the crater Tycho.

#!/usr/bin/perl -w use strict; # A tribute to one of the greatest films of all time. my(%primate, $monolith, $evolution, $contact); $_='primate-> throw ( "Bone" ) ; goto; $$monolith ; bless %primate;$evolution =~m/?+*/; #/*+?/m~= *humanIntellect ++; $Discovery =~ m . [ [::]>>=<>=<>=<>=(-) ]. ; require 2001; exists($malfunction )#open $podBayDoors or die ; HAL-> sing ("Daisy");sleep()*' ;my@universe= qw(15 1 6 4 35 1 12 2 23 2 14 1 8 2 0 5 25 1 39 3 7 2);my $God ;$monolith="******" ; my @spaceTime = split/;/,$_ ; while (my($space,$time )= splice (@universe,0 ,2) ) { my $journey = shift @spaceTime; eval " $journey; "; $contact = substr ( $@, $space, $time ) ; if ( $space != (( " dimension " =~ // ) +1+4+9 ) ) {print $contact; next; }my $starChild=$contact ;print uc$starChild }

Replies are listed 'Best First'.
Re: JAPH 2001
by chipmunk (Parson) on Jan 09, 2001 at 20:21 UTC
    That's a nice trick to get the desired characters!

    I've discovered that this JAPH requires perl5.6.0 to run properly. There appears to be a bug in 5.005_03 that causes a fatal error to leak out of the eval instead of being trapped.

      Thanks. Yes, I was a little worried about that. I should have included "require 5.6.0". I just hope that the error messages read the same on all platforms. :)

      This one was a real joy to write. I really liked being able to shift @spaceTime. Did you notice the ASCII Discovery?

      joecamel

      Works on my win32 ... oops. Its 5.6.0 (w/ one registered patch). <sigh> nevermind.

      a