Re: [FWP] 4 Consecutive Letters

[Peter Scott <Peter@PSDT.com>]

At 07:58 PM 8/14/00 -0400, Rick Delaney wrote:
> > >      perl -ne'@a=a..z;for$i(0..22){print,last if/@a[$i..$i+3]/x}'
> >
> > I can't believe I didn't see that.
>
>This is two characters longer, but I thought it was fun that it used no
>visible variables so here it is.
>
>     perl -ne'print,last if join("",a..z)=~join"|",/(?=(....))/g,_'

Well you can make it three characters shorter instead of two longer and see 
more than one result by removing the ',last' :-)

--
Peter Scott
Pacific Systems Design Technologies


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe