Просмотр сообщений
1
Perl / Помогите разобраться с пингом
« : 19 Июля 2006, 11:28:10 »
Уважаемый StealtH. Я проанализировал приведенный код. Вообще-то все правильно.
Ну не может эта функция возвращать 0 при существующем хосте. Возможно этот хост недоступен. Не забудьте проинициализировать переменную $num_times=... А время пинга завышено скорее всего из-за, что
Net::Ping->new([$proto [, $def_timeout [, $bytes]]]);
Create a new ping object. All of the parameters are optional. $proto specifies the protocol to use when doing a ping. The current choices are ``tcp\'\', ``udp\'\' or ``icmp\'\'. The default is ``udp\'\'.
Попробуй изменить new(icmp,1.5). Должен шустрить быстрее
Ну не может эта функция возвращать 0 при существующем хосте. Возможно этот хост недоступен. Не забудьте проинициализировать переменную $num_times=... А время пинга завышено скорее всего из-за, что
Net::Ping->new([$proto [, $def_timeout [, $bytes]]]);
Create a new ping object. All of the parameters are optional. $proto specifies the protocol to use when doing a ping. The current choices are ``tcp\'\', ``udp\'\' or ``icmp\'\'. The default is ``udp\'\'.
Попробуй изменить new(icmp,1.5). Должен шустрить быстрее