Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Немного подправить скрипт  (Прочитано 53175 раз)
0 Пользователей и 1 Гость смотрят эту тему.
vika
Постоялец

ru
Offline Offline
Пол: Женский

« : 16-04-2011 21:07 » 

Приветствую всех форумчан. Улыбаюсь
В коде RXL (довольно заманчивый пример) никак не могу сообразить, как изменить значения выдаваемых ip-ов?
Код: (Perl)
sub ip_to_n($)
{
  my ($ip_s) = @_;
  my $ip_n = 0;

  for my $part (split(/\./, $ip_s))
  {
    $ip_n <<= 8;
    $ip_n += $part;
  }

  return $ip_n;
}

sub n_to_ip($)
{
  my ($ip_n) = @_;

  return (($ip_n >> 24) & 0xff) . '.' . (($ip_n >> 16) & 0xff) . '.' . (($ip_n >> 8) & 0xff) . '.' . ($ip_n & 0xff);
}

sub get_rand_ip($$)
{
  my ($ip_from, $ip_to) = @_;
  my $ip_n;

  $ip_from = ip_to_n($ip_from);
  $ip_to = ip_to_n($ip_to);
  $ip_n = rand($ip_to - $ip_from + 1) + $ip_from;

  return n_to_ip($ip_n);
}

Суть -  например, есть диапазон 109.107.170.100 - 109.109.170.255 , вопрос - нужно, что бы все выдаваемые айпи состояли ровно из трех чисел... Т.е., диапазон может быть любым, но на выходе нужно получить ip адрес, состоящий из трех цифр... Возможно ли это? Помогите глупой девченке, пожалуйста Здесь была моя ладья...
« Последнее редактирование: 19-04-2011 09:00 от McZim » Записан
Finch
Спокойный
Администратор

il
Offline Offline
Пол: Мужской
Пролетал мимо


« Ответ #1 : 16-04-2011 21:41 » 

vika, А можно пример " ip адрес, состоящий из трех цифр"? Как это должно выглядить?
Записан

Не будите спашяго дракона.
             Джаффар (Коша)
vika
Постоялец

ru
Offline Offline
Пол: Женский

« Ответ #2 : 17-04-2011 16:23 » 

vika, А можно пример " ip адрес, состоящий из трех цифр"? Как это должно выглядить?

Например, 109.187.105.134
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 17-04-2011 17:03 » 

смотри..
три цифры Улыбаюсь (прикольное требование) Это

Тогда...
получаем значение тетрады больше больше или равно ста
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
vika
Постоялец

ru
Offline Offline
Пол: Женский

« Ответ #4 : 17-04-2011 21:27 » 

Как это? Скажите пожалуйста, что конкретно в коде исправить нужно?
Записан
RXL
Технический
Администратор

ru
Online Online
Пол: Мужской

WWW
« Ответ #5 : 18-04-2011 03:35 » 

Ни буквы не надо исправлять. Просто задай нужные параметры для get_rand_ip, там где его используешь.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.

"железокаменный метеорит" мог образоваться от расплавления металлических конструкций в результате например ядерного взрыва и стекания жидкого железа в какой нибудь щебень (c) Иванов С.
vika
Постоялец

ru
Offline Offline
Пол: Женский

« Ответ #6 : 18-04-2011 19:38 » 

Ничего не пойму, простите. Гораздо понятен пример, где просто соединяется строка из цифр, в коде от samlab. Не могли бы вы мне показать кодом, как именно нужно изменить параметры Здесь была моя ладья...
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #7 : 18-04-2011 19:55 » 

vika, скажи, а что тебе конкретно надо?
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
vika
Постоялец

ru
Offline Offline
Пол: Женский

« Ответ #8 : 18-04-2011 21:24 » 

А кокретно надо из диапазонов, например
  • 109.106.212.100 - 109.106.250.128
  • 109.108.212.100 - 109.109.212.128

получать все айпи вида XXX.XXX.XXX.XXX (т.е., чтобы все цифры были трехзначные)...
Записан
RXL
Технический
Администратор

ru
Online Online
Пол: Мужской

WWW
« Ответ #9 : 19-04-2011 03:41 » 

vika, ну так задай эти диапазоны в параметрах вызываемых функций! Или ты ждешь, чтобы за тебя написали? Все намеки даны выше.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.

"железокаменный метеорит" мог образоваться от расплавления металлических конструкций в результате например ядерного взрыва и стекания жидкого железа в какой нибудь щебень (c) Иванов С.
vika
Постоялец

ru
Offline Offline
Пол: Женский

« Ответ #10 : 20-04-2011 16:07 » 

Я их не могу задать, их много, около 200-300... Мне нужно как-то изменить способ генерации рандомного айпи адреса , а не просто поменять числа в этом месте
Код: (Perl)
my $ip = get_rand_ip('95.24.0.0', '95.31.255.255');
« Последнее редактирование: 21-04-2011 06:53 от McZim » Записан
RXL
Технический
Администратор

ru
Online Online
Пол: Мужской

WWW
« Ответ #11 : 20-04-2011 16:17 » 

vika, опиши задачу человеческим языком. Чтобы было понятно не только тебе.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.

"железокаменный метеорит" мог образоваться от расплавления металлических конструкций в результате например ядерного взрыва и стекания жидкого железа в какой нибудь щебень (c) Иванов С.
vika
Постоялец

ru
Offline Offline
Пол: Женский

« Ответ #12 : 20-04-2011 19:29 » 

Ммм... Есть файл со списком диапазонов ip адресов, вот такого вида ( там много диапазонов)
  • 109.109.208.100 - 109.109.223.255
  • 109.109.208.100 - 109.109.245.255
  • 109.108.208.100 - 109.109.223.255
  • 109.105.208.100 - 109.115.223.255

и код

Код: (Perl)
#!/usr/bin/perl -W

sub ip_to_n($)
{
  my ($ip_s) = @_;
  my $ip_n = 0;

  for my $part (split(/\./, $ip_s))
  {
    $ip_n <<= 8;
    $ip_n += $part;
  }

  return $ip_n;
}

sub n_to_ip($)
{
  my ($ip_n) = @_;

  return (($ip_n >> 24) & 0xff) . '.' . (($ip_n >> 16) & 0xff) . '.' . (($ip_n >> 8) & 0xff) . '.' . (($ip_n) >> 42 & 0xff);
}

sub get_rand_ip($$)
{
  my ($ip_from, $ip_to) = @_;
  my $ip_n;

  $ip_from = ip_to_n($ip_from);
  $ip_to = ip_to_n($ip_to);
  $ip_n = rand($ip_to - $ip_from + 1) + $ip_from;

  return n_to_ip($ip_n);
}


open(G,"< block_ip.txt") or die "Openning file: " . $!;

@geo=<G>;

chomp(@geo);

close(G);


$k = 1;

while ($k<100) {

my $value = $geo[ int(rand(@geo)) ];

$value =~ m%([^\-]+)%;
$i = $1;

$value =~ m% - ([^\'\n']+)%;
$j = $1;

my $ip = get_rand_ip($i, $j);

print "$ip \n";

++$k;
}

Задача, получить на выходе айпишники строго из трех цифр, вида xxx.xxx.xxx.xxx , т.е., меня интересует, какие изменения нужно сделать в самом коде, ибо диапазоны я менять не могу, нужны айпи адреса строго из этих диапазонов.
« Последнее редактирование: 20-04-2011 19:54 от Джон » Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #13 : 20-04-2011 19:41 » 

эх

первая_тетрада = 109
вторая_тетрада = 109
цикл третья_тетрада = 208 пока третья_тетрада <=223  третья_тетрада++ {
    цикл четвертая_тетрада = 100 пока четвертая_тетрада <255  четвертая_тетрада++
         АйПи = первая_тетрада . вторая_тетрада . третья_тетрада . четвертая_тетрада
}
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
RXL
Технический
Администратор

ru
Online Online
Пол: Мужской

WWW
« Ответ #14 : 20-04-2011 19:42 » new

Составь диапазоны a.b.c.100 - a.b.c.255.
К примеру, "109.109.208.100 - 109.109.223.255" разбей на компоненты и сделай 3 вложенных цикла - по a, b и c:

Код: (Perl)
for $a (109..109)
{
  for $b (109..109)
  {
    for $c (208..223)
    {
      print("$a.$b.$c.100 - $a.$b.$c.255\n");
    }
  }
}

Разрезать можно регулярным выражением: оператором m// или функцией split.
И читай доки!
Рекомендую книгу "Программирование на Perl". У нас в библиотеке есть: https://club.shelek.ru/viewfiles.php?id=19
« Последнее редактирование: 20-04-2011 19:53 от RXL » Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.

"железокаменный метеорит" мог образоваться от расплавления металлических конструкций в результате например ядерного взрыва и стекания жидкого железа в какой нибудь щебень (c) Иванов С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines