Phil Carmody <[EMAIL PROTECTED]> wrote:
> perl -e
> '"${s}1_${s}2"=~/(.*)\1_.*?(.*)\2$/,print$s.=1+(length$1>length$
> 2),$/for(0..98)'
> Anyone got a few pointers for improving it?
A few easy points (total savings of 7):
1. Use 'perl -le' and eliminate the ',$/' to get the newline.
2. Use a punctuation variable (like $,) instead of $s, so that
you don't have to use the braces when interpolating.
3. Get rid of the parens around '0..98' (you'll need a space
before it, though).
--
Keith C. Ivey <[EMAIL PROTECTED]>
Washington, DC
