synopsis=>warn

While dusting off my files on an old XP box, I stumbled upon a JAPH I wrote a few years ago, but never shared. After trying to puzzle it out for nearly an hour, I reluctantly broke out perl -d, which gave me the solution—as well as the insight that my former self is a sly bastard. Here is the JAPH:

@ARGV = ${$-=$.}, s<#<>q#>#q<<>>
#exegesis=>print, hacker=>unless
$/=q=echo q/Just another Perl /|
$/=!~40.46.42.41#apocalypse=>die
[download]

This code needs to be stored in a file to work. Tested on Strawberry Perl 5.12 (WinXP) and Perl 5.20 (Arch Linux). Strictures and warnings will give some clues.

Comment on synopsis=>warn Select or Download Code

Replies are listed 'Best First'.
Re: synopsis=>warn by Anonymous Monk on Aug 13, 2014 at 14:37 UTC
`@ARGV = ${$-=$.}, s<#<>q#>#q<<>> #exegesis=>print, hacker=>unless $/=q=echo q/Just another Perl /\| $/=!~40.46.42.41#apocalypse=>die` [download] Read more... (8 kB) For me it appears that when there is a japh camel become like dogs hunting for a stick. Some hunt even longer than an hour, so for these I hope this is a pleasant short cut :-) Have a lot of fun Michael	[reply] [d/l] [select]
Re^2: synopsis=>warn by Grimy (Pilgrim) on Sep 11, 2014 at 13:52 UTC
Thanks for this nice explanation. I hope you had fun puzzling it out; that’s really the only goal of this thing. There’s just one small inacurracy I have to point out: the initial value of $. isn’t 0, it’s undef. That’s why $- is here: it’s a magical variable that can only hold positive integers. Assigning to it converts undef to 0.	[reply]