我有一个Perl应用程序,从命令行输入一个输入：
application --fields 1-6,8
我想用’…’代替’ – ‘,以便我可以将它们存储在数组中,例如
$str = "1..15,16" ; @arr2 = ( $str ) ; @arr = ( 1..15,16 ) ; print "@arr\n" ; print "@arr2\n" ;
这里的问题是@arr工作正常(应该如此),但在@ arr2中,整个字符串不会扩展为数组元素.
我尝试过使用转义序列,但没有运气.
可以这样做吗？
解决方法
如果这是用户输入,如果您有任何安全问题,请不要在其上使用字符串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文件上使用而编写的,如果有人记得那些是什么的话).它还允许无限范围(字符串开始 – 数字或结束数字 – ),元素方法将呱呱叫.