Немного подправить скрипт

[vika]

Приветствую всех форумчан.
В коде 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 адрес, состоящий из трех цифр... Возможно ли это? Помогите глупой девченке, пожалуйста

[Finch]

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

[vika]

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

Например, 109.187.105.134

[Sla]

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

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

[vika]

Как это? Скажите пожалуйста, что конкретно в коде исправить нужно?

[RXL]

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

[vika]

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

[Sla]

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

[vika]

А кокретно надо из диапазонов, например

• 109.106.212.100 - 109.106.250.128
• 109.108.212.100 - 109.109.212.128

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

[RXL]

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

[vika]

Я их не могу задать, их много, около 200-300... Мне нужно как-то изменить способ генерации рандомного айпи адреса , а не просто поменять числа в этом месте

Код: (Perl)

my $ip = get_rand_ip('95.24.0.0', '95.31.255.255');

[RXL]

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

[vika]

Ммм... Есть файл со списком диапазонов 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 , т.е., меня интересует, какие изменения нужно сделать в самом коде, ибо диапазоны я менять не могу, нужны айпи адреса строго из этих диапазонов.

[Sla]

эх

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

[RXL]

Составь диапазоны 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