[Moscow.pm] преобразование строки '1..3,5,6..8' в массив @ports=(1,2,3,5,6,7,8)

[Antonio Nikishaev]

On 3 May 2014, at 18:38, Nikolay Mishin <mi at ya.ru> wrote:

> Уважаемый MoscowPm
> 
> у меня тут задача простучать порты у 100 серверов
> сервера даны в файле 
> 10.265.113.1;1..3,5,6..8
> хотелось бы список портов преобразовать в массив
> преобразование строки '1..3,5,6..8' в массив @ports=(1,2,3,5,6,7,8)
> но @ports=eval($str_ports) не проходит

$ perl -E 'say join ",", eval("1..3,5,6..8")'
1,2,3,5,6,7,8



> как быть, можно конечно, просто вызывать функцию
> check_ports(10.265.113.1,1..3,5,6..8); и так для каждого сервера, но это же неудобно.
>