10 |
my $range_size = 500; |
my $range_size = 500; |
11 |
my $overlap = 3; # between previous and this range |
my $overlap = 3; # between previous and this range |
12 |
my $skip_results = 1; |
my $skip_results = 1; |
13 |
|
my $cites_by_year = 1; |
14 |
|
|
15 |
my $max_cites = 5000; # ISI limit to get cites |
my $max_cites = 5000; # ISI limit to get cites |
16 |
|
|
171 |
|
|
172 |
my @y = sort keys %$years; |
my @y = sort keys %$years; |
173 |
|
|
174 |
|
@ranges = (); |
175 |
|
|
176 |
|
if ( $cites_by_year ) { |
177 |
|
push @ranges, [ $_ ] foreach @y; |
178 |
|
warn "# cites_by_year ranges ", dump @ranges; |
179 |
|
return; |
180 |
|
} |
181 |
|
|
182 |
my $y = shift @y; |
my $y = shift @y; |
183 |
my $size = $years->{$y}; |
my $size = $years->{$y}; |
184 |
|
|
|
@ranges = (); |
|
185 |
my $cites_range; |
my $cites_range; |
186 |
$cites_range = [$y] if $y; |
$cites_range = [$y] if $y; |
187 |
|
|