У мя вот такой скрипт...
#!/usr/bin/perl
use Net::Netmask;
@ip_mask = qw(192.168.2.22/255.255.255.192 192.168.2.100/255.255.255.192);
@ip = map { new Net::Netmask($_)->enumerate() } @ip_mask;
Но на Netmask у мяругается вот так
Can't locate Net/Netmask.pm in @INC (@INC contains: /usr/local/lib/perl5/5.8.8/BSDPAN /usr/local/lib/perl5/site_perl/5.8.8/mach /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.8.8/mach /usr/local/lib/perl5/5.8.8 .) at /tmp/perl line 2.
И еще, подскажите как можно нагенерить кучу адресов из заданных подсетей\маск, может есть хороший пример у кого-нибуть?)
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.