Matt Herbert writes:

> helping out Kevin... we haven't seen any perl tidbits in a while ;)

My favorite one-liner of the past month, a variation of something I
saw a few years ago:

perl -le '(a x $_) !~ /^(aa+)\1+$/ && print while ++ $_'

--kevin
-- 
Kevin D. Clark          |                           |  Will hack Perl for
[EMAIL PROTECTED] | [email protected] | fine food, good beer, 
Cabletron Systems, Inc. | PGP Key Available         |      or fun.
Durham, N.H. (USA)      |                           |



**********************************************************
To unsubscribe from this list, send mail to
[EMAIL PROTECTED] with the following text in the
*body* (*not* the subject line) of the letter:
unsubscribe gnhlug
**********************************************************

Reply via email to