Select Code to Download

Select or download this

71         ---
70            ---
...
66                           ---
..                        
0 --------------------------------------------------------------

Select or download this

sub probe {
    use integer;
...
        redo;
    }
}

Select or download this

my $ramping = 57000 - 9029;
my $step = int( $ramping / 72 );
...
    map( (( $_ ) x $step ), reverse 0 .. 71 ),
    (0) x $leftovers
);

Select or download this

C:\test>junk8
Initial step size: 10 located 'file' 9695 after probing 318 files
...
Initial step size: 98 located 'file' 9029 after probing 287 files
Initial step size: 99 located 'file' 9029 after probing 191 files
Initial step size: 100 located 'file' 9029 after probing 95 files

Select or download this

Initial step size: 100 located 'file' 9029 after probing 95 files
Initial step size: 110 located 'file' 9029 after probing 317 files
...
Initial step size: 980 located 'file' 9029 after probing 179 files
Initial step size: 990 located 'file' 9029 after probing 197 files
Initial step size: 1000 located 'file' 9029 after probing 209 files

Select or download this

#! perl -slw
use strict;
...
    $tiedObj->resetCount;
}