/^[a-z ]*$/

Since ~~everyone seems~~ lots of people seem to fill their JAPHs with non-alpha characters, I thought I would go the other way and write my first JAPH with a-z and ' ' only!

#! /usr/bin/perl -l

use warnings;
use strict;

s cm cjump s or hide s it eq phcxg cmp s oin ocker oxsio
or s jm pjstjxis ne s k s or k anotk or s s eq ps s lt s
qit qerl qog or s wide s wq qer pqwe eq print and last
for eval q s caller s
[download]

OK its not rocket-science, and I cheated by using -l but it's fun!

updated - thanks to cog for pointing out a JAPH going further and using keywords only! Nice work blokhead. (And I'm sure there are others with a newline and no warnings too.)

update2 - OK it's so obvious how to avoid the -l I feel mildly stupid! At least I worked it out myself (not the method suggested by ambrus either!). Modified JAPH:

#! /usr/bin/perl

use warnings;
use strict;

s cm cjump s or hide s it eq phcxg cmp s oin ocker
oxsio or s jm pjstjxis ne s k s or k anotk or s seq ps s lt s
qit qerl qog or s wide s wq qer pqwe eq print and last
for eval q s caller s
[download]

Comment on /^[a-z ]*$/ Select or Download Code

Replies are listed 'Best First'.
Re: /^[a-z ]*$/ by blokhead (Monsignor) on Sep 29, 2005 at 15:26 UTC
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'` [download] A full "Just another perl hacker" output is probably not possible with this method, at least without some extreme cleverness.. blokhead	[reply] [d/l]
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 :-)	[reply]
Re: /^[a-z ]*$/ by ambrus (Abbot) on Sep 29, 2005 at 15:26 UTC
See also exactly 390 bytes and Ode for getprotobyname, and read their threads too. These also tell how to avoid the -l switch. Update: Indigo japh is not a pure alphabetic japh, it has some commas and a semicolon. Update: I belive you've found it out without my help, but I think it is the same method I've suggested: the one in the beginning of Re (Obfu generator for): Ode for getprotobyname. And I felt just as stupid after I've found it. To clarify, the method is... <Reveal this spoiler or all in this thread>	[reply]
Re: /^[a-z ]*$/ by cog (Parson) on Sep 29, 2005 at 15:00 UTC
everyone seems to fill their JAPHs with non-alpha characters Not everyone. Search for "uses only Perl keywords" on that link.	[reply]