Re: [FWP] 4 Consecutive Letters

[Peter Scott <Peter@PSDT.com>]

At 04:11 PM 8/14/00 -0400, Ronald J Kimball wrote:
>Try this instead:
>
>perl -ne'/(.)(??{$a=$1;$a++;$a++.$a++.$a})/&&print'

Birdie:

   perl -ne'/(.)(??{($a=$1)++;$a++.$a++.$a})/&&print'

>Note that this solution (like your original above) will also match words
>containing the sequences 'xyzaa', 'yzaaab', and 'zaaabac'.  :)

Yes, that occurred to me when I saw your last message.  Of course, this 
could be considered a feature :-)



--
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