解决办法:

use strict;
use warnings;
use Time::HiRes qw[gettimeofday tv_interval];

sub min ($$) {$_[$_[0] > $_[1]]}

my $start_index = int(rand(50))+100;#this value is arbitrary for this discussion
my $duration = 75;#also arbitrary but assume it will always be several times the size of the dataset

{
    my @dataset = qw(foo bar baz qux bob joe sue tom);
    my $hash = {};
    my $partial = $duration % scalar(@dataset);
    my $full = ($duration - $partial) / scalar(@dataset);

    my $start = [gettimeofday()];
    for my $index (0..$#dataset) {
        my $w = $dataset[$index];
        for (0..$full-1) {
            my $i = $start_index + $index + (scalar(@dataset) * $_);
            $hash->{$i} = $w;
        }
    }
    print "  full: ".tv_interval($start)." secs
";$start = [gettimeofday()];
    for my $index (0..$partial-1) {
        my $w = $dataset[$index];
        my $s = $start_index + $index + (scalar(@dataset) * $full);
        $hash->{$s} = $w;
    }
    print "  part: ".tv_interval($start)." secs
";$start = [gettimeofday()];

    #print "$_ => $hash->{$_}
" foreach (sort {$a <=> $b} keys %$hash);
}

#############
print "

";
#############

{
    my $dataset = [qw(foo bar baz qux bob joe sue tom)];
    my $hash;
    $hash //= {};

    my $remaining = $duration;
    my $phase = 0;#arbitrary
    my $start = [gettimeofday()];
    while (1) {
        last unless $remaining;
        my $chunk_size = min($remaining, scalar(@$dataset) - $phase);
        #print "$chunk_size   ".($start_index+$duration-$remaining)."..".($start_index+$duration-$remaining+$chunk_size-1)."   $phase..".($phase+$chunk_size-1)."
";
        @{$hash}{($start_index + $duration - $remaining .. $start_index + $duration - $remaining + $chunk_size - 1)} = @{$dataset}[$phase .. $phase + $chunk_size - 1];
        $remaining -= $chunk_size;
        $phase = ($phase + $chunk_size) % scalar(@$dataset);
    }
    print "  time: ".tv_interval($start)." secs
";$start = [gettimeofday()];

    #print "$_ => $hash->{$_}
" foreach (sort {$a <=> $b} keys %$hash);
}

象你所能做的唯一优化一样,在休息室外计算 s(@dataset):

my $data_set_size = scalar(@dataset);

lo

my $i = floor($start_index + $index + ($data_set_size * $_));