LINUX.ORG.RU

perl help


0

0

#!/usr/local/bin/perl
use Net::Netmask;
@ip_mask = qw(192.168.0.0/255.255.0.0);
@ip = map { new Net::Netmask($_)->enumerate() } @ip_mask;
print join(", ", @ip, "10.10.10.10");
подскажите как убрать 192.168.0.0, 192.168.0.255, ...etc адреса?

и как вывод в шел-команду подставить?
anonymous
Ответ на: комментарий от paranormal

Рас читать не хочешь, делай цикл while в нем проверку if на /^192\.168/

@ip = qw(192.168.0.0/255.255.0.0, 10.0.0.15/255.255.255.0); while ($i = pop(@ip)) { if ($i !~ /^192\.168/) { print "$i\n"; } }

А вообще grep или map. %) одной строкой.

paranormal ★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.