Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

Abigail (26)

Abigail
  (email not shown publicly)

Journal of Abigail (26)

Wednesday August 08, 2001
06:59 PM

2001-08-09

[ #641 ]
My first entry! Whoo-woo. Wonder how long I can keep this up. Anyway, birthdays are a good time of trying something else.

I'm still high from YAPC::Europe. So much Perl. So many interesting people - people I didn't know, people I've met before, and people I now finally get put a face to the name. Very good conference.

Yesterday (well, tuesday actually) was the monthly Amsterdam.pm meeting. There was a challenge from Johan: write a JAPH that he can send by SMS. The catch: his phone doesn't have lowercase letters. Calling external programs wasn't allowed too. And SMS messages have a 160 byte limit. We came up with:

BEGIN{$^H=2097152}$_="(?\173\160\162\151\156\164'\112\165\163\164\040\141\156".
\157\164\150\145\162\40\120\145\162\154\40H\141\143\153\145\162\012'\175)";/$_/

(Aaaaaaargh, why can't we use <PRE>?)

but then the rumour was spread that curly braces aren't allowed in SMS either (which turned out to be untrue). Later last night, I had a one-liner:

BEGIN{$^H=1<<21}$_="(?{\LPRINT\E'J\LUST ANOTHER\E P\LERL\E H\LACKER\12'})" ;/$_/

but that still has curly braces. I put it on FWP, and overnight, Japhy had worked around the braces too:

0=~"(?\173\LPRINT\E'J\LUST ANOTHER\E P\LERL\E H\LACKER\12'\175)"

Very neat.

-- Abigail