Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: /^[a-z ]*$/

by blokhead (Monsignor)
on Sep 29, 2005 at 15:26 UTC ( #496145=note: print w/replies, xml ) Need Help??


in reply to /^[a-z ]*$/

FYI, the code from the wikipedia article is my JAPH, originally posted at Fun With Reserved Keywords (And no, I didn't add it to the wikipedia article). There is also a link in that node to code that generates JAPHs of this form.

I recently had an idea for another approach to the keywords-only JAPH (incidentally which was also inspired by Ode for getprotobyname), which is more time-consuming to make. Right now I only have a sig-version of it (it's been at the bottom of my homenode for a while)..

perl -le 'chop gt print if s qq socket y qx cmp s q qq or uc tr qw s my not vec eq abs do le chop q'
A full "Just another perl hacker" output is probably not possible with this method, at least without some extreme cleverness..

blokhead

Replies are listed 'Best First'.
Re^2: /^[a-z ]*$/
by cog (Parson) on Sep 29, 2005 at 15:43 UTC
    I actually tried finding out who was the original author of that JAPH before posting, but neither Wikipedia nor Google were much help...

    ++ for you :-)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://496145]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2020-10-31 22:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (291 votes). Check out past polls.

    Notices?