Re: [Fun With Perl] A prime example

[Mark-Jason Dominus <mjd@plover.com>]

>From vlb@cfcl.com  Thu Jun 10 16:27:47 1999 apologies for the delay! - vlb]
Received: (qmail 30900 invoked by uid 119); 10 Jun 1999 23:20:50 -0000
Message-ID: <19990610232049.30899.qmail@plover.com>
In-reply-to: Your message of "Thu, 10 Jun 1999 19:02:15 EDT."
              <Pine.LNX.4.10.9906101855020.6747-100000@anzha.willer.nws.net>
Date: Thu, 10 Jun 1999 19:20:49 -0400


> > sub f{(1x shift)!~/^(11+)\1+$/}
>
> I don't know what that last '+' was doing in your regexp.

If it isn't there, then the regex will not match when the argument is
21, although it should do.  It becomes a function for recognizing odd
numbers, which is substantially less interesting than what it was
before you tampered with it.

==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org

</x-flowed>