p5pRT
commented
24 years ago From @abigail
Created by @abigail
When running benchmark programs\, I sometimes encounter:
Illegal division by zero at /opt/perl/lib/5.6.0/Benchmark.pm line 584.
I've looked at the Benchmark code\, but the number of short variables and cryptic comments confuse me to much to understand what the intent is. This is line 584:
my $r = $tmax / $ttot - 1; # Linear approximation.
Here's a program which triggers the error (but I expect it to be system dependent).
#!/opt/perl/bin/perl -w
use strict; use Benchmark; use Algorithm::Numerical::Shuffle qw/shuffle/;
use vars qw /@sorted @reverse @organ @rev_organ @random/;
my $size = 100000; # @sorted = map {sprintf "%06d" => $_} 1 .. $size; @sorted = 1 .. $size; # duh! @reverse = reverse @sorted; @organ = (@sorted [1 .. $size/2]\, reverse @sorted [1 .. $size/2]); @rev_organ = (@reverse [1 .. $size/2]\, reverse @reverse [1 .. $size/2]); @random = shuffle @sorted;
timethese -20 => { sorted => 'my @a = sort @::sorted'\, reverse => 'my @a = sort @::reverse'\, # organ => 'my @a = sort @::organ'\, # rev_organ => 'my @a = sort @::rev_organ'\, random => 'my @a = sort @::random'\, }
__END__
(The same happens with bleedperl)
Migrated from rt.perl.org#3726 (status was 'resolved')
Searchable as RT3726$