3

私が管理できない愚かなこと...

Perlでは、RRDTool（rrdsモジュール）を使用して、さまざまな期間（1日、1週間など）のグラフを作成するための共通のサブルーチンを作成します。オプションの凡例も表示するために、いくつかのサブ引数を使用したいと思います。

次のコードでは、グラフは生成されません。

#!/usr/bin/perl
use strict;
use OWNet;
use RRDs;
use warnings;
use diagnostics;

my $rrd = '/var/rrd/electricite.rrd';
my $img = '/mnt/ds211/web/';

&CreateGraph("conso","Consommation electrique 1 heure","1h",1);

sub CreateGraph
# inputs:   $_[0]: sensor_rrd_name
#       $_[1]: chart title
#       $_[2]: interval period (1h,24h,7d,1m,1y,10y)
#       $_[3]: Puissance instantanee (1/0)
{
    my $temp_graph;
    $temp_graph ="\"$img$_[0]-$_[2].png\",";
    $temp_graph .="\"--start=end-$_[2]\",";
    $temp_graph .="\"--end=now\",";
    $temp_graph .="\"--width=600\",";
    $temp_graph .="\"--height=200\",";
    $temp_graph .="\"--slope-mode\",";
    $temp_graph .="\"--title=$_[1]\",";
    $temp_graph .="\"--vertical-label=Watt\",";
    $temp_graph .="\"--lower-limit=0\",";
    $temp_graph .="\"--alt-autoscale-max\",";
    $temp_graph .="\"DEF:energy=$rrd:$_[0]:AVERAGE\",";
    $temp_graph .="\"CDEF:Watt=energy,3600,*\",";
    $temp_graph .="\"LINE2:Watt#0000FF:\",";
    $temp_graph .="\"AREA:Watt#00FF00:\",";
    $temp_graph .="\"VDEF:WattHour=energy,TOTAL\",";

    if ($_[3]==1)
    {
        $temp_graph .="\"GPRINT:Watt:LAST:  Puissance instantanee\\: %6.2lf%sW\",";
    }

    $temp_graph .="\"GPRINT:WattHour:   Consommation totale\\: %6.2lf%sWh\\n\",";
    $temp_graph .="\"GPRINT:Watt:MIN:  Puissance min\\: %6.2lf%sW\",";
    $temp_graph .="\"GPRINT:Watt:AVERAGE:  Puissance moyenne\\: %6.2lf%sW\",";
    $temp_graph .="\"GPRINT:Watt:MAX:  Puissance max\\: %6.2lf%sW\"";

    RRDs::graph ("$temp_graph");

    if ($ERROR = RRDs::error)
    {
        print "$0: failed to generate graph $_[0] data into rrd: $ERROR\n";
    }
}

ありがとうございました

4

2 に答える 2

1

問題は、引数を含む配列ではなく文字列を rrdtool に渡していることです。

それ以外の

RRDs::graph ("\"graph.gif\",\"DEF:...\" ...");

あなたは電話するべきです

RRDs::graph ("graph.gif","DEF:...","...");`

事前に引数を準備したい場合は、次を使用します

my @args = ("graph.gif","DEF:...","...")
RRDs::graph(@args);

お役に立てれば。

于 2012-11-22T22:30:03.397 に答える
0

タイトルのスペース文字がオプションの解析を妨げていると推測します。$temp_graph 文字列のタイトルを一重引用符で囲んではどうですか?

これが役立つことを願っています。

my $temp_graph = qq{"$img$_[0]-$_[2].png",};
$temp_graph .= qq{"--start=end-$_[2]",};
$temp_graph .= qq{"--end=now",};
$temp_graph .= qq{"--width=600",};
$temp_graph .= qq{"--height=200",};
$temp_graph .= qq{"--slope-mode",};
$temp_graph .= qq{"--title='$_[1]'",};
$temp_graph .= qq{"--vertical-label=Watt",};
$temp_graph .= qq{"--lower-limit=0",};
$temp_graph .= qq{"--alt-autoscale-max",};
$temp_graph .= qq{"DEF:energy=$rrd:$_[0]:AVERAGE",};
$temp_graph .= qq{"CDEF:Watt=energy,3600,*",};
$temp_graph .= qq{"LINE2:Watt#0000FF:",};
$temp_graph .= qq{"AREA:Watt#00FF00:",};
$temp_graph .= qq{"VDEF:WattHour=energy,TOTAL",};

if ($_[3]==1)
{
    $temp_graph .= qq{"GPRINT:Watt:LAST:  Puissance instantanee\\: %6.2lf%sW",};
}   

$temp_graph .= qq{"GPRINT:WattHour:   Consommation totale\\: %6.2lf%sWh\\n",};
$temp_graph .= qq{"GPRINT:Watt:MIN:  Puissance min\\: %6.2lf%sW",};
$temp_graph .= qq{"GPRINT:Watt:AVERAGE:  Puissance moyenne\\: %6.2lf%sW",};
$temp_graph .= qq{"GPRINT:Watt:MAX:  Puissance max\\: %6.2lf%sW"};

print join qq{",\n"}, split /","/, $temp_graph;
print "\n";
于 2012-11-22T17:32:25.770 に答える