On Sun, 10 Mar 2002, Sidney Markowitz wrote:
> The following program did not take long to run. What am I doing wrong?
>
> #!/usr/bin/perl
> $string="AAAAAAAAAAAAAAAAAAA foofoo";
> if ($string=~/^[^a-z]*([A-Z][^a-z]*){3,}[^a-z]*$/) {
> print "passed\n";
> } else {
> print "failed\n";
> }
Add a few more A's; Does it take much longer with each additional A? Does
for me.
I'm using perl 5.005_03 everywhere (FreeBSD-stable. I sure wish they'd
update to 5.6 already). I suspect Rob is right, and perl 5.6 is improved
for such cases.
_______________________________________________
Spamassassin-talk mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/spamassassin-talk
