Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^3: A curses-based JAPH

by eyepopslikeamosquito (Chancellor)
on Dec 12, 2004 at 03:36 UTC ( #414194=note: print w/replies, xml ) Need Help??


in reply to Re^2: A curses-based JAPH
in thread A curses-based JAPH

Thanks for that. Very evil, er, nice. /me scribbles some new obfu tricks.

If I may make a criticism of this first attempt from a JAPH beginner, it is the title. AFAICT, by Perl Monks convention, it should read something like "My First JAPH!!!" and contain a plea to please be kind. ;-)

Oh, and it's not canonical. To canonicalize, replace the first line with:

#@<')I;G0G2G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R+"<``
As a bit of a spoiler, re-formatting the code like this:
#@<')I;G0G2G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R+"<`` eval<DATA>; sub X { $_ = unpack('u', $_) until /u(?{eval})/ } __DATA__ seek(DATA, 0, 0); X() for <DATA> =~ /.(.*.)./;
makes it a bit easier to understand.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://414194]
help
Chatterbox?
[holli]: bullshit. cents not $
[ambrus]: holli: wait, plastic or glass bottle?
holli switches OS
[holli]: Lidl only sells plastic
[Corion]: holli: Oooh, a twister top - so yes, that's a worse state of mind than it sounded ;)
[holli]: and since I outed myself anyway as a horrible person, to top it off, the bottle contains beer. alcohol free beer
[Discipulus]: nowaday such beers have also a good taste

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (16)
As of 2017-09-25 12:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (280 votes). Check out past polls.

    Notices?