Re: [FWP] 4 Consecutive Letters

[Uri Guttman <uri@sysarch.com>]

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

abbey
Abernathy
abeyance
abeyant
abysmal
abyss

...


i don't think (??) is doing what you think.

uri

-- 
Uri Guttman  ---------  uri@sysarch.com  ----------  http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page  -----------  http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net  ----------  http://www.northernlight.com

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