Модераторы: ginnie, korob2001

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> вычисления по методу ipcalc 
:(
    Опции темы
ISQman
Дата 30.7.2008, 09:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 22.7.2008

Репутация: нет
Всего: нет
Цитата

админы вывесили подсети с неправильными масками smile или вообще без масок... то есть трафик расчитатьь нельзя, некоторые сети были с бесплтаными трафиком

вот от этой криворукости и мы страдаем, в общем вот код, где небыло маски вообще я добавлял /24
Код

#!/usr/bin/perl

use Net::Telnet; 
use Net::IP;

$pass="1";
$comand="show ip bgp";
$port="2605";
$server="127.0.0.1";
$file="./ip.log";
$err_1="Ошибка открытия файла";
$err_2="Ошибка записи файла";

my $connect = new Net::Telnet (Timeout  => 5,
                         Prompt   => '/[\>\#] $/',
                         Port     => $port);
$connect->open($server);
$connect->cmd("$pass");
@broodlist=$connect->cmd("$comand");

@list=map{(split)[1]}@broodlist;
@list=grep{!/^194\.107\.117/}@list;
@list=grep{!/^0\.0\.0/}@list;
@list=map{"$_\/24"}@list;
@list=map{/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\/\d{1,2}/g}@list;
@list=map{"$_\n"}@list; 

open (BROOD,">brood.log") ||die "$err_1";
if (!print BROOD @broodlist){
    warn "$err_2";
}
close (BROOD);

open (IP,">$file") || die "$err_1";
if (!print  IP @list){
    warn "$err_2";
}
close (IP);

print @list,"\n";
exit;



чуть не забыл работаю под фряхой 
имхо винда сакс

Это сообщение отредактировал(а) ISQman - 30.7.2008, 09:41
PM MAIL ICQ   Вверх
ISQman
Дата 31.7.2008, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 22.7.2008

Репутация: нет
Всего: нет
наверное всётаки никто не сталкивался с таким гемором...
тогда такой вопорс, как ещё проверить вхождения подсеток?
PM MAIL ICQ   Вверх
ginnie
Дата 31.7.2008, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 6
Всего: 49
ISQman, если честно, я из Ваших пояснений так и не понял задачу, которую надо решить. Про вхождение подсеток amg, решение уже привел. Вам, вероятно, надо что другое, но вот что -  не понятно!
Присоединяюсь к просьбе amg
Цитата

Покажите, пожалуйста, что должно получиться, например, из данных, приведенных в 1-м посте.


Это сообщение отредактировал(а) ginnie - 31.7.2008, 17:46


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
ISQman
Дата 31.7.2008, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 22.7.2008

Репутация: нет
Всего: нет
глубоко извиняюсь покурил мануальчики, и всё стало на свои места
amg и ginnie, Вы просто чудо а не люди))) СЫПЫСЫ вам от чистого сердца smile  smile 
великие шаманы программирования  smile  ;)
PM MAIL ICQ   Вверх
ISQman
Дата 20.8.2008, 11:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 22.7.2008

Репутация: нет
Всего: нет
Цитата(amg @ 29.7.2008,  14:13)
Удалить все подсетки, целиком входящие в другие подсетки?
Код
use Net::IP;

my @IP = qw(195.114.128.0/19 195.114.128.0/24 195.114.129.0/24 195.114.130.0/24 
195.114.131.0/24 195.114.132.0/24 195.114.133.0/24 195.114.135.0/24 );

my @ip = map {new Net::IP($_)} @IP;

foreach my $ip (@ip) {
    @ip = grep {$ip->overlaps($_)!=$IP_B_IN_A_OVERLAP} @ip;
}

@IP = map {$_->print()} @ip;

print "@IP\n";

Всё чудесно, только вот вопрос каким таким чудесным образом вывод получается такого вида?
212.40.60/24
213.155.0/19
213.231.0/18

т.е ип теперь состоит из 3-х "частей" а не из 4-х

Это сообщение отредактировал(а) ISQman - 20.8.2008, 12:07
PM MAIL ICQ   Вверх
ISQman
Дата 27.10.2009, 18:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 22.7.2008

Репутация: нет
Всего: нет
а есть ли альтернатива данному способу?
т.к. при переборе фул вью на более чем 2к подсетей роутер уходит в раздумие минут на 10...
PM MAIL ICQ   Вверх
amg
Дата 28.10.2009, 08:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 9
Всего: 50
Если под "данным способом" Вы имеете в виду тот код, который я приводил где-то в начале, то первое, что приходит в голову -- это переписать тот дурацкий цикл, который совершенно справедливо критиковал ginnie. Возможно, будет ускорение, м.б. даже в разы.

Дальнейшее ускорение -- это уже нужно менять алгоритм и/или используемый модуль.

Возможно, сначала отсортировать список и очевидные случаи удалить сразу ...
И кстати, на отсортированном списке при условии "правильного" цикла (который не тупо перебирает все подряд, а делает выход, как только обнаруживает совпадение) даже без удаления "в ручную" очевидных случаев программа будет работать быстрее (возможно, сильно быстрее).

Это сообщение отредактировал(а) amg - 28.10.2009, 09:14
PM MAIL   Вверх
ISQman
Дата 28.10.2009, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 22.7.2008

Репутация: нет
Всего: нет
цикл я переписал сразу, а счас просто ищу вот тот самый алгоритм/модуль, который будет работать быстрее...
идея на данный момент есть, например, ключами для начала использовать глые ипы без маски, а значения будут масками, таким образом я хоть смогу отсеять часть дубликатов (параллельно проверять маски и оставльять наименшую)...
кстати есть ещё идея и вот как раз с ней я никак не могу подружиться в плане кода:
можно подсети сравнить побитово (благодаря маске), но как правильна побитово разложить увы я так и не понял, да и как сравнить. 
допустим есть 172.16.0.0/15
минимальный ип будет 172.16.0.1
бродкаст - 172.17.255.255
в данном случае все подсети аля 172.17.0.0/24 172.16.0.0/24 должны отсеятся (если таковы имеются в списке) и т.д.
пока реализовую первую задумку
вот что наковырял:

Код

$n = 0;
$i = @list_3;
while ($i>$n){
    if (exists($list3{$p1[$n]}) && $list3{$p1[$n]} >= $p2[$n]){
        print $list3{$p1[$n]};
        delete($list3{$p1[$n]});
    }else{
        $list3{$p1[$n]}=$p2[$n];
    }
$n++;
}

ключами являются ипы, значения - маски
втолько остался вопрос стоит ли сливать в подсетки...

Это сообщение отредактировал(а) ISQman - 28.10.2009, 13:18
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: Системное программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к системному программированию на Perl
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1124 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.