Как я могу использовать Perl и RRD для отображения времени пинга? - PullRequest
Новая
       17

Как я могу использовать Perl и RRD для отображения времени пинга?

0 голосов
/ 21 апреля 2010

Я пытаюсь сделать свой первый граф rrd через Perl. Я пробовал RRD :: Simple и rrds и просто не могу заставить ни одного работать.

Вот что у меня есть: 

use strict;
use RRD::Simple ();

# Create an interface object
my $rrd = RRD::Simple->new( file => "server.rrd" );

# Put some arbitary data values in the RRD file for the same
# 3 data sources called bytesIn, bytesOut and faultsPerSec.
 $rrd->create(
            EqSearch => "DERIVE",
            MfSearch => "DERIVE",
            EQCostBasis => "DERIVE",
            MFCostBasis => "DERIVE"
        );

$rrd->update(
            EqSearch => 2,
            MfSearch => 3,
            EQCostBasis => 10,
            MFCostBasis => 15
        );

# Generate graphs:
# /var/tmp/myfile-daily.png, /var/tmp/myfile-weekly.png
# /var/tmp/myfile-monthly.png, /var/tmp/myfile-annual.png
my %rtn = $rrd->graph(
            destination => "/Users/cmuench/Documents/Code/perl",
            title => "Server A",
            vertical_label => "",
            interlaced => "",
            periods => [qw(hour)]
        );

Вывод:

график http://www.mediafire.com/imgbnc.php/a39e2bd662adefa823dca66351db637c5g.jpg

1 Ответ

0 голосов
/ 22 апреля 2010

Из приведенного выше сценария основная проблема заключается в том, что у вас недостаточно данных для отображения на графиках. вы можете увидеть данные в вашем rrd, используя ' rrdtool fetch `.

Если вы можете использовать bash вместо perl. Посмотрите на эту статистику " Обход и потеря пакетов" с помощью rrdtool"

Если вы все еще хотите использовать модуль Perl RRD :: Simple , пожалуйста, посмотрите примеры, поставляемые с этим модулем, например RRD :: Simple :: examples Или предоставьте более подробную информацию проблема, с которой вы столкнулись.

...