作为一名C开发人员,我对Perl相当陌生。我的要求是,我需要将值转换为
3-6,9
至:
3,4,5,6,9
另外,如果值为
3-6,9-18
至:
3,4,5,6,9,10,11,12,13,14,15,16,17,18"
发布于 2018-05-28 18:04:45
扩展范围的一种方法是:
use strict;
use warnings;
my @newvals = ();
my @retrns = qw(3-6 9 89-99);
findRanges(@retrns);
sub findRanges
{
my @vals = @_;
@newvals = map { if($_=~m/(\d+)\-(\d+)/) { ($1 .. $2); } else { $_; } } @vals;
}
print join "\n", @newvals;
https://stackoverflow.com/questions/50563440
复制相似问题