Re: number sequence

This seems to work:

my $comb = '18,5,1790,19-66,212,213';
$comb =~ s/(\d+)-(\d+)/join ',', $1 .. $2/ge;
my @seq = sort { $a <=> $b } split ',', $comb;
[download]

Comment on Re: number sequence Download Code

Replies are listed 'Best First'.
Re^2: number sequence by Anno (Deacon) on Mar 23, 2007 at 18:05 UTC
Yes, looks like it works. I'd prefer to expand the range format ("`10-66`") after the split: `my @seq = sort { $a <=> $b } map /(\d+)-(\d+)/ ? $1 .. $2 : $_, split /,\s*/, $comb;` [download] Anno	[reply] [d/l] [select]