Forum Webscript.Ru
Программирование => Perl => Тема начата: HTML2K от 27 Октября 2001, 10:11:21
-
Задача для этого модуля как всегда обычная. Узнать в сети адресс или нет. Пишу:
use Net::Ping;
print "Content-type: text/html\\n\\n";
$pingobject = Net::Ping->new(tcp);
if ($pingobject->ping (\'microsoft.com\'))
{
print "Online";
}
else {
print "Ofline";
}
$pingobject ->close();
Он видно что что-то делает но результатов не паказывает, помогите.