|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Maksim Malchuk 2:5053/40.63 20 Oct 2006 03:31:56
To : All
Subject : Net::Netmask
--------------------------------------------------------------------------------
Помогите с сабжем, может у кого есть хорошие примеры использования?
Hужно написать несколько прог для работы со списками сетей:
- поиск вхождения адреса/32 в одину из сетей из списка
- нахождение пересекающихся сетей (агрегация)
- и т.д.
Возможно уже есть готовые решения?
Вот что было написано (первая задача) на коленке... вроде работает,
может можно проще написать?
use Net::Netmask;
($file, $ip) = @ARGV;
open (FILE, $file) || die "Can't open $file";
while ($buf = <FILE>) {
$block = new Net::Netmask ($buf);
if ($block->match($ip)) {
print $block;
print "\n";
}
}
close FILE;
До свидания, Maksim.
--- GoldED+/W32 1.1.5-030227 (WinNT 5.1.2600-Service_Pack_2 i686)
* Origin: No one lives forever... ю (2:5053/40.63)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
