VPF::Помогите с Net::Ping - Форум программистов

study

Дата 18.2.2005, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет

Народ, помогите разобраться с модулем Net::Ping, мне нужно пропинговать хост несколько раз, и вычислить среднюю задержку. Как это сделать smile

opi

Дата 18.2.2005, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 11.2.2005

Репутация: нет
Всего: нет

Про Net::Ping, посмотри perldoc, там всё очень подробно описано.

Чтоб сделать то что ты хочешь:
1. Создай новый объект, $p = Net::Ping->new();
2. В цикле вызывай $p->ping(<имя host-а или IP>, <timeout>); Эта функция тебе вернёт результат и время ping-а, суммируй время ping-а в переменную.
3. Вычисли и выведи среднее.

Вот пример:

Код


#!/usr/bin/perl -w

use strict;

use Net::Ping;

my $i = 0; my $sum = 0; my $pause = 1; my $host = "localhost";
my $timeout = 5; my $num_of_pings = 30; my $good; my $duration; my $ip;

my $p = Net::Ping->new();

$p->hires();

for($i = 0, $sum = 0; $i < $num_of_pings; $i++, $sum += $duration) {
        ($good, $duration, $ip) = $p->ping($host, $timeout);

        print "Ping: ";

        if(!$good) {
                print "Failed."; print " Timeout." if $duration == $timeout;
                print "\n";
        } else {
                printf("$host [ip: $ip] is alive (return time: %.4f s)\n",
                        $duration);
        }

        sleep($pause);
}

printf("\n%d pings were sent, average reply time: %.4f s.\n",
        $num_of_pings, $sum/$num_of_pings);

$p->close();

Цитата(study @ 18.2.2005, 15:16)

study

Дата 21.2.2005, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет

opi спасибо потестирую.

CineallianceHD

Дата 16.6.2011, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 16.6.2011

Репутация: нет
Всего: нет

добрый вечер
извините что поднимаю столь старую тему, хотел спросить насчёт NetPing

присмотрелся к NetPing 2/PWR-220 v1/SMS, что скажите, стоит?

требуется: управление кондиционером\светом\модемом WiFi через инет и GSM.
а может есть проще агригаты, а то я боюсь не осилю в настройке его .

Заранее благодарю....

shamber

Дата 22.6.2011, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 1
Всего: 18

вы явно чего-то попутали

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »