[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
Re: [FWP] 4 Consecutive Letters
On Mon, Aug 14, 2000 at 12:00:09PM -0700, Peter Scott wrote:
> At 11:17 AM 8/14/00 -0700, I wrote:
> > perl -ne'/(.)(??{join"",map chr ord($1)+$_,1..3})/&&print'
>
> perl -ne'/(.)(??{$a=$b=$1;$b++;++$a.++$b.++$b})/&&print'
Why do you use $a and $b instead of just $a?
Ronald
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe