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

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

ru
Offline Offline

« : 07-02-2011 21:33 » 

В коде RXL заметил такой баг, как его объяснить ( и как подправить код), прошу подсказать, кто знает Улыбаюсь
Код: (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 & 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);
}

$k = 1;

  while ($k<100) {

  my $ip = get_rand_ip('109.106.204.100' , '109.106.205.255');

  print "$ip\n";

++$k;
}
Вот результат работы скрипта
Microsoft Windows XP [Версия 5.1.2600]
(С) Корпорация Майкрософт, 1985-2001.

C:\Documents and Settings\Саша>cd Рабочий стол

C:\Documents and Settings\Саша\Рабочий стол>t.pl
109.106.204.212
109.106.204.166
109.106.204.184
109.106.204.196
109.106.204.230
109.106.204.147
109.106.205.26
109.106.204.175
109.106.205.85
109.106.205.94
109.106.204.123
109.106.204.126
109.106.205.170
109.106.205.4
109.106.205.123
109.106.205.185
109.106.204.119
109.106.205.137
109.106.204.205
109.106.204.102
109.106.204.145
109.106.205.152
109.106.205.18
109.106.205.152
109.106.205.206
109.106.204.198
C:\Documents and Settings\Саша\Рабочий стол>
Т.е., айпишник 109.106.205.4 никак не входит в диапазон, который был задан
« Последнее редактирование: 08-02-2011 07:09 от McZim » Записан
Dimka
Деятель
Команда клуба

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

« Ответ #1 : 07-02-2011 21:40 » 

perl6, а по-моему 109.106.204.100 < 109.106.205.4 < 109.106.205.255, поэтому нет тобою указанной ошибки.
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
perl6
Помогающий

ru
Offline Offline

« Ответ #2 : 07-02-2011 23:01 » 

Правда, что то я ступил, сейчас сам посмотрел... Жаль
Записан
RXL
Технический
Администратор

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

WWW
« Ответ #3 : 08-02-2011 06:55 » new

Бывает Улыбаюсь
Программа оперирует не компонентами IP, а единым 32-битным числом.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines