[Perl] Новичкам: задаем вопросы

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

12.10.2007, 16:37

~~Digimortal~~

Banned

Регистрация: 22.08.2006

Сообщений: 608

Провел на форуме:
6144796

Репутация: 1095

Цитата:

Сообщение от DIAgen

Вот есть скриптик

Код:

#!/usr/bin/perl
print "Content-type: text/html\n\n";
my $host = "89.108.80.80";
use Net::Ping;
$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();

Вот только он не чего не выводит... Библиотека Net::Ping установлена, выводит пустую стрницу и все... в чем может быть загвоздка?

тут скорее всего загвоздка в твоем хосте.. по дефолту протокол для создаваемого object ping - tcp, на него хост видать не отвечает.. можно сделать например
$p = Net::Ping->new('icmp', 10);
но тогда потребуются рут-привилегии, чтоб скрипт рабтоал.. так же пробуй поизменять таймаут - по умолчанию он 5, но у меня, например, тока с 10 более-менее нормально работает..