Re: [FWP] JAPH

[Marcel Grunauer <marcel.grunauer@lovely.net>]

On Fri, 27 Aug 1999 18:02:50 -0700, you wrote:

> I have crafted my first JAPH (translation: too much time on my hands), 
> although I have a suspicion that it must have already been taken by Randall 
> or Abigail (is there an index somewhere?  I don't want to put it in my .sig 
> and then be accused of plagiarism) since it is fairly simple and only uses 
> one trick (I dislike character cipher obfuscations, so I haven't obscured 
> it any further with one of those).
> 
> Anyway, presented here with helpful white space instead of packing it 
> in.  Creative or shorter variants solicited.
> 
> 
> BEGIN { $_= q(
>    sub xxx {
>      $xxx =~ tr/:/ /s;
>      "$_[0,1] $xxx";
>    }
>    );
>    s/xxx/UNIVERSAL::AUTOLOAD/g;
>    eval
> }
> 
> print hacker perl another just;

Not to belittle your program, sir, but isn't that what everyone does
when they discover AUTOLOAD?

A few variations:

sub AUTOLOAD{($_=$AUTOLOAD)=~s/^.*:://;y/_/ /;print}
Just_Another_Perl_Hacker();


sub AUTOLOAD{print substr($AUTOLOAD,6).' '}
Just(),Another(),Perl(),Hacker();


The next ones don't use AUTOLOAD, but since we're talking about
JAPHs...


sub Hacker(){print "Just "}sub Perl($){print "Another "}
sub Another($){print "Perl "}sub Just($){print "Hacker "}
Just Another Perl Hacker


sub Hacker(){'Just '}sub Perl($){"$_[0]Another "}
sub Another($){"$_[0]Perl "}sub Just($){print "$_[0]Hacker "}
Just(Another(Perl(Hacker)))


%me = (Just => Another => Perl => Hacker); foreach (sort keys %me) {
print "$_ $me{$_} " }



Marcel
Perl Padawan
-- 
sub AUTOLOAD{($_=$AUTOLOAD)=~s,^.*::,,;y,_, ,;print} Just_Another_Perl_Hacker();

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe