Front page | perl.perl5.porters |
Postings from January 2008
# New Ticket Created by Heinz Knutzen
# Please include the string: [perl #50250]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=50250 >
Hello,
the parser of netspoc (http://netspoc.berlios.de) runs 4 times slower
with perl5.10.0 than with perl5.8.8.
I tracked this down to a small test case:
perl -e 'print "x"x200000'>large
time perl5.8.8 -C -e '$_=<>;while(1){/\G./g;pos||last;}' large
time perl5.10.0 -C -e '$_=<>;while(1){/\G./g;pos||last;}' large
On my computer with AMD Athlon BE-2350 I get these results:
perl5.8.8: 0.25 seconds
perl5.10.0: 490.00 seconds
--> a factor of nearly 2000!
The problem doesn't appear
- if unicode isn't enabled or
- if pos() is run without progessive matching.
Attached you will find the output of "perl -V" for both versions of perl.
--
Heinz Knutzen
Thread Next