Re: [FWP] 4 Consecutive Letters

[Peter Scott <Peter@PSDT.com>]

At 03:15 PM 8/14/00 -0400, Uri Guttman wrote:
> >>>>> "PS" == Peter Scott <Peter@PSDT.com> writes:
>
>   PS>         perl -ne'/(.)(??{join"",map chr ord($1)+$_,1..3})/&&print'
>
>that seems to fail for me with 5.6. i get many words out of /usr/dict/words.
>i don't think (??) is doing what you think.

Rats, that's what I get for testing on a small subset for time's sake.

At least the second one I posted still works.  This time I ran it on the 
ENABLE word list.

Why the one above doesn't work is beyond me.  (Thought it might be use of 
$_ in the map, but that wasn't it.)

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