Проверить DNS на отказоустойчивость

давай, наваяем:)

#!/usr/bin/perl

sub RandIP 
{
  my @V;
  for ( my $i = 0; $i < 4; $i++ )
  {
    $V[$i] = int (rand (254) + 1);
  }
  return join (".", @V);
}

for ( my $i = 0; $i < 10000; $i++ )
{
  my $IP = RandIP ();
  system ("host $IP &");
}


мдя... сам такое запускать не буду:)

ага. по-моему от такого скрипта раньше ляжет запускающая система %)

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

надо поменять

system ("host $IP &");

на

system ("dig @123.123.123.123 $IP &");

только вот кто первый ляжет - хост или сервер - действительно неизвестно:)