view release on metacpan or  search on metacpan

lib/Array/Windowed.pm  view on Meta::CPAN

	# ["a","b","c"]
	array_windowed(@array, -2, 5); 

	# ["a".."z"]
	&array_windowed(\@array, 0, 26);


=cut

sub array_windowed(\@$$) {
	my $array_ref = shift;
	my $start     = shift;
	my $count     = shift;

	my $first_index = max(0, $start);
	my $last_index  = min(@{ $array_ref } - 1, $start + $count - 1);

	# smart comment for debugging, uncomment use Smart::Comments above
	### $start
	### $count