Re: Rate my JAPH

[Jeff Yoak]

On Dec 7, 2011, at 12:18 PM, Yitzchak Scott-Thoennes wrote:

> 
> Ooh, it's been a long time since I've seen a good statement-separator vs.
> statement-terminator religious argument.  Was that an opening salvo?

I almost made a comment on this as well and pulled back just in time.  ;-)  But 
as all right-thinking, vi-using, programmers know...

Cheers,
Jeff

Re: Rate my JAPH

[Jeff Yoak]

I intentionally grabbed an early one of Randal's for that stone snippet, though 
it is old enough be may not even recognize it.  It was crafted in 1990 and 
posted from an intel address.  :-)

Cheers,
Jeff

On Nov 24, 2011, at 7:25 PM, Andrew Savige wrote:

> This node:
> 
>  http://perlmonks.org/?node_id=412464
> 
> claims that the first JAPH was simply (note the punctuation):
> 
>  print "Just another Perl hacker,"
> 
> This ancient JAPH was penned in 1988 by a Portland Oregon hacker,
> currently sobering up after his wild 50th birthday party.
> 
> 
> /-\
> 
> 
> 
> - Original Message -
> From: Jeff Yoak 
> To: Randal L. Schwartz 
> Cc: fwp@perl.org
> Sent: Friday, 25 November 2011 7:41 AM
> Subject: Re: Rate my JAPH
> 
> On Nov 24, 2011, at 3:57 AM, Randal L. Schwartz wrote:
> 
>> If there were points for "earliest JAPH", I'd get an unfair advantage. :)
> 
> 
> I believe this fragment was discovered at an archeological site from the late 
> paleolithic era from somewhere near Portland.

RE: Unknown level of hash

[Jeff Yoak]

I meant more that my answer was more "fun" than "useful."  I can't
imagine a reason one wouldn't prefer a loop to an eval.  :-)


On Mon, 2005-03-28 at 16:00, Zhuang Li wrote:
> Yes. I think it's both useful and fun. I was thinking something similar
> to
> @[EMAIL PROTECTED] = map{1} @a; 

Well... that's not exactly it, but you can implicitly hijack the loop
behavior of things like map and grep, using them in void contexts.  I
think another poster showed a clever way to do that with a map.

The dim solution for perl6 was really interesting though.

Cheers,
Jeff

Re: Unknown level of hash

[Jeff Yoak]

On Mon, 2005-03-28 at 15:06, Zhuang Li wrote:
> Hi, given an array: @a = ('E1', 'E2', ..., 'En'); 
> 
>  
> 
> Is there an easy way, hopefully one liner, to do the following without a
> loop? If not, will Perl support this in Perl 6?
> 
>  
> 
> $hash->{E1}->{E2}->...->{En} = 1;

use Data::Dumper;

my @x = qw/a b c d e/;
my $h = {};
my $s = join '}->{',@x;
eval '$h->{'.$s.'}=1';

print Dumper $h;


You asked this on a "fun with Perl" mailing list, but something about
your tone implies that you think this may be a useful, good thing to do
rather than simply fun.  Please know that I intend this only for fun. 
:-)

Cheers,
Jeff

Re: "Secret" operators

[Jeff Yoak]

On Tue, 2005-02-01 at 03:49, Josà Castro wrote:
> Hi, guys.
> 
> Apart from the "secret eskimo greeting" and the "goatse operator", can
> anyone tell me about other "secret" operators?
> 
> Examples:
> 
> eskimo:   }{
> goatse:   =()=
> 
> eskimo usage:   perl -ne '}{print $.'

This is wonderfully deranged.  I haven't seen it before, but it was
immediately clear what it does.

> goatse usage:   perl -e '$_="zbrughau";$b=()=/u/g;print $b'

This is probably even more wonderfully deranged as it *isn't* clear what
it does, even after running it.  Can you explain this one?  And also,
what does the name "goatse" mean?

Cheers,
Jeff