Re^3: Convert an array of numbers into a range

For older perls without the /r

#!/usr/bin/perl -l

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

use strict;
use warnings;

my @ra = qw(0001 0002 0003 011 012 013 015 16 17 18 20);

$_ = join ',', @ra;

s/\b(\d+)(?{$1})\K(?:,(\d+)\b(??{++$^R!=$2}))+/-$2/g;

print;
[download]

Comment on Re^3: Convert an array of numbers into a range Download Code

Replies are listed 'Best First'.
Re^4: Convert an array of numbers into a range by rmocster (Novice) on Jul 22, 2016 at 00:57 UTC
this sort of works. result: 0001-0003,011-013,015-18,20 should be: 0001-0003,011-013,015,16-18,20	[reply]
Re^5: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 01:01 UTC
Changing the rules in the middle of the game? Next time give exact desired output when you pose a problem.	[reply]
Re^6: Convert an array of numbers into a range by rmocster (Novice) on Jul 22, 2016 at 01:04 UTC
Sorry, not meant to mislead.	[reply]
Re^5: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 01:07 UTC
`#!/usr/bin/perl -l # http://perlmonks.org/?node_id=1168288 use strict; use warnings; my @ra = qw(0001 0002 0003 011 012 013 015 16 17 18 20); $_ = join ',', @ra; s/\b(\d+)(?{$1})\K(?:,(\d+)\b(??{++$^R!=$2\|\|length$1!=length$2}))+/-$2 +/g; print;` [download]	[reply] [d/l]
Re^6: Convert an array of numbers into a range by rmocster (Novice) on Jul 22, 2016 at 01:18 UTC
WOW, that is perfect. Big Thanks. Can you give a brief explanation of the syntax if you don't mind? Again thanks.	[reply]
Re^7: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 01:43 UTC
Re^6: Convert an array of numbers into a range by rmocster (Novice) on Aug 27, 2016 at 07:29 UTC
I got this error. Complex regular subexpression recursion limit (32766) exceeded `s/\b(\d+)(?{$1})\K(?:,(\d+)\b(??{++$^R!=$2\|\|length$1!=length$2}))+/-$2 +/g;` [download]	[reply] [d/l]
Re^7: Convert an array of numbers into a range by Anonymous Monk on Aug 27, 2016 at 09:39 UTC
Re^8: Convert an array of numbers into a range by rmocster (Novice) on Sep 29, 2016 at 22:39 UTC
Some notes below your chosen depth have not been shown here


Don't ask to ask, just ask
	PerlMonks