|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anton Yuzhaninov 2:5020/400 21 Oct 2006 11:54:11
To : Maksim Malchuk
Subject : Re: Net::Netmask
--------------------------------------------------------------------------------
Hello, Maksim!
You wrote to Anton Yuzhaninov on Fri, 20 Oct 2006 19:08:36 +0400:
MM> 20 Окт 06 14:57, Anton Yuzhaninov -> Maksim Malchuk:
MM>>> Помогите с сабжем, может у кого есть хорошие примеры
MM>>> использования?
AY>> Для аггрегации списка префиксов проще использовать
AY>> Net::CIDR::Lite
AY>> могу кинуть пример.
MM> было бы замечательно!
Все предельно просто:
#!/usr/bin/perl -w
use Net::CIDR::Lite;
use strict;
my $cidr = Net::CIDR::Lite->new;
IP: while (<>) {
chomp;
if (!/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\/\d{1,2}$/) {
warn "bad line: '$_', ignored\n";
next IP;
}
$cidr->add($_);
}
foreach ($cidr->list) {
print $_, "\n";
}
--
Anton Yuzhaninov, OSPF-RIPE, mail: citrin (at) citrin.ru
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
