Сообщения

1

Perl / Помогите запустить фоновые процессы

« : 04 Октября 2004, 19:05:04 »

Скорее всего это ограничения на уровне ОС, а не fork.
Какую ошибку ты получаешь?

Так в том то и дело что ни какой, он просто не запускает больше 64 процессов

The documentations is your friend

А где взять по нему доки?

2

Perl / Помогите запустить фоновые процессы

« : 03 Октября 2004, 18:25:44 »

Люди помогите со следующей траблой.
Нужно запустить несколько сотен фоновых процессов. При запуске с помощью fork, получается запустить не больше 60, а нужно около 300. Подскажите как быть. Может у fork\'а есть какие-то ограничения

3

Perl / Помогите разобраться с пингом

« : 26 Сентября 2004, 15:24:33 »

Вообщем такая ситуевина, нужно пинговать несколько определенных хостов в сети.

Есть код:


if(&ping($host)){
print "Yes\\n";
}else{
  print "No\\n";}


sub ping($host)
{
use Net::Ping;
 $p=Net::Ping->new();
 $p->hires();
 ($ret, $duration, $ip) = $p->ping($host, 5.5);
  if($ret)
  {
   for ($i=0;$i<=$num_times;$i++)
   {
    $p->hires();
    ($ret, $duration, $ip) = $p->ping($host, 5.5);
    $ping_time+=$duration;
   }
   $ping_time=$ping_time/$i;
   $p->close();
   return 1;
  }else {
   $p->close();
   return 0;
}

так вот при $host=\'реально существующий хост\' функция возвращает 0, в обратном случае тоже самое.
Второй вопрос:
при ответе пингуемого хоста время пинга $ping_time имеет очень жуткие значения, т.е. в 3-5 раз больше чем при пинге системной командой.

Помогите плиз, люди добрые, может где-то ошибочка или недоглядел чего.

И еще вопрос , как с помощью перла определить тип прокси сервера(SOCKS4, SOCKS4a, SOCKS5), буду сильно признателен если подкините кусочек кода или ссылку на литературу