Re: Generating ranges of numbers

[Anonymous Monk]

#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=1166921

use strict;
use warnings;

my @array = ("1","2","3","5","6","7","9");

my @ranges = split ' ', "@array"
  =~ s/\b(\d+)\K (?=(\d+)(??{$1 != $2 - 1 && 'fail' }))/:/gr
  =~ s/:[\d:]+:/:/gr;

print "@ranges";