perl – 如何将“1..15,16”之类的字符串扩展为数字列表？

application --fields 1-6,8

$str = "1..15,16" ;
@arr2 = ( $str ) ;
@arr = ( 1..15,16 ) ;
print "@arr\n" ;
print "@arr2\n" ;

如果这是用户输入,如果您有任何安全问题,请不要在其上使用字符串eval.

请尝试使用Number::Range：

use number::range;

 $str = "1..15,16" ;
 @arr2 = number::range->new( $str )->range;
 print for @arr2;

为避免死于无效范围,请执行以下操作：

eval { @arr2 = number::range->new( $str )->range; 1 } or your_error_handling

还有Set::IntSpan,它使用 – 而不是..：

use Set::IntSpan;

 $str = "1-15,16";
 @arr2 = Set::IntSpan->new( $str )->elements;

但它要求范围有序且不重叠(它是为了在.newsrc文件上使用而编写的,如果有人记得那些是什么的话).它还允许无限范围(字符串开始 – 数字或结束数字 – ),元素方法将呱呱叫.