p5pRT
commented
24 years ago From per.lindquist@dynamics.saab.se
Created by per.lindquist@dynamics.saab.se
This is a bug report for perl from per.lindquist@dynamics.saab.se\, generated with the help of perlbug 1.19 running under perl 5.006.
-----------------------------------------------------------------
Hi\, I'm not sure if this should be called a bug but it's a problem anyway.
I *have* tried to find out if this is reported/solved elsewhere\, but didn't succeed.
The 's///' statement seems to take a lot more time in version 5.6.0 than in version 5.00403\, at least in some cases. The execution time has increased more than 20 times (an in-house script takes 20 minutes instead of one\, which is quite annoying).
A fairly pruned down (and perhaps a bit ugly?) example that at least repeats the problem:
Search through a (long) file\, find a certain parameter (near the end of the file) and perform a replacement.
The problem occurs below the 'The interesting part' comment in the test script.
The test file should be longer than showed in this mail in order to show the problem more obviously. Replace the '...' line by say 300 or so lines containing 'P MIDDLE = 0;' Save the file named 'testfile' in the same directory as the test script.
Hope this is enough for you guys...
Regards\, PerL (but still a perl rookie)
--- Test script start --- #!/opt/local/sun4/bin/perl5.6.0
sub read_file() { # Get the arguments: ($file_name) = @_;
# Read the entire file into $file:
open (FILE\, "\<$file_name") or
die ("Could not open $file_name for input");
my $contents="";
while (\
return $contents; }
$file = &read_file("testfile");
for ($j=0; $j\<=10; $j++) { # The interesting part: # Slow on 5.6\, fast on 5.00403: if (!($file =~ s/(.*)LAST(.*=).*/$1LAST$2foo;/)) {die("Could not patch file");} } #!/opt/local/sun4/bin/perl5.00403 #!/opt/local/sun4/bin/perl5.6.0 --- Test script end ---
--- Test file start --- P FIRST = 0; P MIDDLE = 0; P MIDDLE = 0; ... P MIDDLE = 0; P MIDDLE = 0; P LAST = 0; --- Test file end ---
Migrated from rt.perl.org#3423 (status was 'rejected')
Searchable as RT3423$