На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Внимательно изучите правила раздела перед созданием темы
0. ПРИЛАГАЙТЕ СВОИ СКРИПТЫ.
1. Прежде чем создать топик, используйте поиск. Возможно это уже обсуждалось.
2. В топике указывайте ОС, режим работы скрипта (CLI|CGI). Очень желателен вывод лог-файлов и того места, куда у вас назначен вывод данных (STDOUT|STDERR)
3. Помните: вы знаете что вы хотите, а форумчане - нет. Поэтому следуйте простому правилу: грамотный развернутый вопрос - грамотный развернутый ответ.
Модераторы: ANDLL
  
    > Как в перл разложить подсеть на ip адреса?
      Добрый день.
      Подскажите, как в перл скрипте разложить подсеть на ip адреса?
      На входе имеем ip: 192.168.100.0 mask 24
      Как ее разложить на:
      192.168.100.1
      192.168.100.2
      ...
      192.168.100.254

      ?
      Сообщение отредактировано: Unknown_Error -
        Можно допилить под себя вот это
          Оказывается, все просто:

          Цитата

          use Net::IP;

          sub getIPRange
          {
          my @array = ();
          my $ip = new Net::IP (shift) || die Net::IP::Error();
          my $index = 0;

          while (++$ip)
          {
          if ($ip + 1)
          {
          $array[$index++] = $ip->ip();
          }
          }

          return @array;
          }

          @my_array = getIPRange('192.168.0.0/24');
          Сообщение отредактировано: Unknown_Error -
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0200 ]   [ 16 queries used ]   [ Generated: 28.03.24, 08:34 GMT ]