0

Perl を使用して最初の rrd グラフを作成しようとしています。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

4

1 に答える 1

0

上記のスクリプトの主な問題は、グラフに表示するのに十分なデータがないことです。「 rrdtool fetch 」を使用して、rrd のデータを確認できます。

perl の代わりに bash を使用できる場合。この「rrdtool を使用したラウンドトリップとパケット損失の統計」を見てください。

Perl モジュールRRD::Simpleを引き続き使用したい場合は、このモジュールで提供されている例、つまりRRD::Simple::Examplesを参照するか、直面している問題の詳細を提供してください。

于 2010-04-22T04:47:16.840 に答える