Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^2: A curses-based JAPH

by TheDamian (Vicar)
on Dec 11, 2004 at 00:39 UTC ( [id://414024]=note: print w/replies, xml ) Need Help??


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

I've never written one. I suppose if I did, my first attempt might look something like: 
#?<')I;G0G2G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R)P```
eval<DATA>;sub'_{$_=unpack+u=>$_=>until/u(?{eval})/}
   __DATA__
seek+DATA=>$%,%$;_%;for<DATA>=~'.(.*.).'

[download]

Replies are listed 'Best First'.
Re^3: A curses-based JAPH
by eyepopslikeamosquito (Archbishop) on Dec 12, 2004 at 03:36 UTC

    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+"<``

    [download]
    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> =~ /.(.*.)./;

    [download]
    makes it a bit easier to understand.

[reply]
[d/l]
[select]

In Section Meditations

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://414024]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2024-04-18 22:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found