Split the array elements in ranges

viktor has asked for the wisdom of the Perl Monks concerning the following question:

Hi, Can anyone tell me that if we have any module in cpan which can split the array elements in blocks of say 10. For example

@array=qw ( 1 2 3 10 11 12 13 20 21);

I want the output like this 1-10 5, 11-20 4, 20-30 1 thanks

Comment on Split the array elements in ranges Download Code

Replies are listed 'Best First'.
Re: Split the array elements in ranges by hdb (Monsignor) on Apr 16, 2013 at 10:17 UTC
What you want is some Histogram. Have a look at CPAN. Otherwise, use a hash for counting: `use strict; use warnings; my @array=qw ( 1 2 3 10 11 12 13 20 21); my $bin = 10; my %hist; map { $hist{ (int(($_-1)/$bin)+1)*$bin }++ } @array; print join ",", map { ($_-9)."-$_ $hist{$_}" } sort keys %hist;` [download]	[reply] [d/l]
Re^2: Split the array elements in ranges by viktor (Acolyte) on Apr 16, 2013 at 12:24 UTC
thanks :)	[reply]
Re: Split the array elements in ranges by prashantktyagi (Scribe) on Apr 16, 2013 at 10:13 UTC
Check this out Get ranges from a list of numbers (like 1,2,3 => 1-3)	[reply]
Re: Split the array elements in ranges by jwkrahn (Abbot) on Apr 16, 2013 at 18:47 UTC
List::MoreUtils has the `natatime()` function and it is probably already installed on your computer.	[reply] [d/l]