Re: Convert an array of numbers into a range

<pedantry>

... an array with padded numbers ... (0001,0002,0003,011,012,013,015) ...

Just BTW, and perhaps to avoid a subsequent misunderstanding, that's an array of octal numbers.

c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my @ra = (0001,0002,0003,011,012,013,015);
 dd \@ra;
"
[1, 2, 3, 9, 10, 11, 13]
[download]

See in particular the "true" (i.e., decimal) value of 015.

Might you be thinking of something like qw(0001 0002 0003 011 012 013 015) instead?

c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my @ra = qw(0001 0002 0003 011 012 013 015);
 dd \@ra;
"
["0001", "0002", "0003", "011", "012", "013", "015"]
[download]

</pedantry>

Give a man a fish: <%-{-{-{-<

Comment on Re: Convert an array of numbers into a range Select or Download Code

Replies are listed 'Best First'.
Re^2: Convert an array of numbers into a range by rmocster (Novice) on Jul 22, 2016 at 00:26 UTC
I am thinking @ra = qw(0001 0002 0003 011 012 013 015); or added couple numbers :) @ra = qw(0001 0002 0003 011 012 013 015 16 17 18 20); How is regex be structured? Thanks a lot.	[reply]
Re^3: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 00:49 UTC
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]	[reply] [d/l]
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
Re^6: Convert an array of numbers into a range by rmocster (Novice) on Jul 22, 2016 at 01:04 UTC
Re^5: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 01:07 UTC
Re^6: Convert an array of numbers into a range by rmocster (Novice) on Jul 22, 2016 at 01:18 UTC
Some notes below your chosen depth have not been shown here
Re^6: Convert an array of numbers into a range by rmocster (Novice) on Aug 27, 2016 at 07:29 UTC
Some notes below your chosen depth have not been shown here
Re^3: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 00:37 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); print join(',', @ra) =~ s/\b(\d+)(?{$1})\K(?:,(\d+)\b(??{++$^R!=$2}))+ +/-$2/gr;` [download]	[reply] [d/l]