Re: Japhs by SMS.
On Thu, Aug 09, 2001 at 04:17:36PM -0500, David L. Nicol wrote:
Jeff 'japhy/Marillion' Pinyan wrote:
Why not:
0=~(?\173\LPRINT\E'J\LUST ANOTHER\E P\LERL\E H\LACKER\12'\175);
65 chars.
Wow. Why does binding this string to 0 cause it to get evald?
It's a regular expression match. \173 and \175 are curly braces, so the
regex includes the (?{ }) syntax mentioned earlier.
You can use any expression as a regular expression with the binding
operator. For example:
print Yay!\n if 4 =~ 2+2;
Ronald
Re: Japhs by SMS.
On Wed, 8 Aug 2001, Kye Leslie wrote: - -Why not: - - 0=~(?\173\LPRINT\E'J\LUST ANOTHER\E P\LERL\E H\LACKER\12'\175); - -65 chars. - -I'm not sure about the official implementation of SMS, but the ~ char -isn't in the symbol table in my nokia phone.. -anyone else have this? I have a ~ on my Sony CMD-J5. Cheers, Bernard
Re: Japhs by SMS.
On Aug 8, Abigail said:
On Wed, Aug 08, 2001 at 01:26:07AM +0200, Abigail wrote:
So Merijn and I came quickly with similar Japhs:
BEGIN{$^H=2097152}$_=(?\173\160\162\151\156\164'\112\165\163\164\040\141\156\157\164\150\145\162\040\120\145\162\154\040H\141\143\153\145\162\012'\175);/$_/;
And this can be done in less than 80 characters too:
BEGIN{$^H=121}$_=(?{\LPRINT\E'J\LUST ANOTHER\E P\LERL\E H\LACKER\12'});/$_/
Why not:
0=~(?\173\LPRINT\E'J\LUST ANOTHER\E P\LERL\E H\LACKER\12'\175);
65 chars.
--
Jeff japhy Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for Regular Expressions in Perl published by Manning, in 2002 **
