Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: A curses-based JAPH

by eyepopslikeamosquito (Chancellor)
on Dec 09, 2004 at 09:09 UTC ( #413459=note: print w/replies, xml ) Need Help??


in reply to A curses-based JAPH

Since eyespoplikeamosquito laid out a brief history of the JAPH ...

Thanks for the acknowledgement ... despite the spelling variation. ;-) So now I know the merlyn, the larry and the brian have all written a JAPH. What about TheDamian?

Replies are listed 'Best First'.
Re^2: A curses-based JAPH
by TheDamian (Priest) on Dec 11, 2004 at 00:39 UTC
    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>=~'.(.*.).'

      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://413459]
help
Chatterbox?
[MidLifeXis]: hahaha: Just received a buzz-word-bingo- compliant email (internal) that starts with "%Firstname% %Lastname%...". It only gets better from there.
choroba finds working in a small company boring comparing to a large corporation
[MidLifeXis]: At least test before mass distribution.
[MidLifeXis]: More opportunities for anonymous snafus :-)
[MidLifeXis]: In a small group / company, at least you know who needs to buy the next round of beer for their mess-up.
[MidLifeXis]: :-)
[Discipulus]: are sure you are not really named "%Firstname% %Lastname%..." ? have you check your identity card?
[Discipulus]: Bobby Tables?

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (10)
As of 2017-01-19 12:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you watch meteor showers?




    Results (170 votes). Check out past polls.