Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.118.30.253] |
|
Сообщ.
#1
,
|
|
|
Добрый день.
Подскажите, как в перл скрипте разложить подсеть на ip адреса? На входе имеем ip: 192.168.100.0 mask 24 Как ее разложить на: 192.168.100.1 192.168.100.2 ... 192.168.100.254 ? |
Сообщ.
#3
,
|
|
|
Оказывается, все просто:
Цитата use Net::IP; sub getIPRange { my @array = (); my $ip = new Net::IP (shift) || die Net::IP::Error(); my $index = 0; while (++$ip) { if ($ip + 1) { $array[$index++] = $ip->ip(); } } return @array; } @my_array = getIPRange('192.168.0.0/24'); |