|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrew Alakozow 2:5061/29 13 Dec 2000 14:33:12
To : Sergery Chernyh
Subject : Состояние удаленного хоста
--------------------------------------------------------------------------------
Sergery Chernyh wrote to All...
SC> Локальная машина под Linux, удаленная WinNT.
SC> Открываю коннект к MSSQL
SC> $dbh = DBI->connect("dbi:Sybase:server=$server", $user, $passwd);
SC> Ели машина живая, то все ок. Если нет то скрипт висит на этой строчке,
SC> ни какие TimeOut and LoginTimeOut не помогают. Попытался узнавать с
SC> помощью Net::Ping , состояние удаленного хоста, оказалось фигу, пинг
SC> разрешен только руту. Подскажите как проверить, жив ли удаленный хост,
SC> не используя Net::Ping.
пример из Cookbook. 1433 - порт для подключения к MSSQL по умолчанию.
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => '192.168.1.1',
PeerPort => 1433,
Proto => "tcp",
Type => SOCK_STREAM)
or die "Couldn't connect to $remote_host:$remote_port : $@\n";
bi
.aa.
--- (.) ===
* Origin: Ecology... Save This Goddamn World! (2:5061/29)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
