[Perl] Créer un graph RRD avec RRDTool::OO

Créer un graph RRD avec RRDTool::OO [Perl] - Perl - Programmation

Marsh Posté le 23-12-2013 à 11:46:59    

Bonjour,
 
Je débute dans le monde du RRD, alors le mieux est de partir sur un exemple qui fonctionne.
Pour cela je me base sur le tuto de ce site qui reprend un exemple assez connu:
http://wiki.monitoring-fr.org/supervision/rrdtool
 
J'en suis à l'étape "rrdtool graph vitesse2.png" et jusqu'ici tout va bien.
En revanche pour l'exemple "vitesse3.png" il demande de créer un "CDEF" et là je bloque.
 
Voici mon script où pour "vitesse2.png" cela fonctionne :

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use RRDTool::OO;
  6. # Constructor
  7. my $rrd = RRDTool::OO->new(
  8.         file    => "myrrdfile.rrd",
  9.         raise_error     => 1,
  10. );
  12. # Create a round-robin database
  13. # Define the RRD
  14. my $rc = $rrd->create(
  15.         start           => '1051480800',
  16.         data_source     => {
  17.                 name            => 'vitesse',
  18.                 type            => 'COUNTER',
  19.                 min             => 'U',
  20.                 max             => 'U',
  21.                 heartbeat       => '600',
  22.         },
  23.         archive         => {
  24.                 cfunc   => 'AVERAGE',
  25.                 xff     => 0.5,
  26.                 cpoints => 1,
  27.                 rows    => 24,
  28.         },
  29.         archive         => {
  30.                 cfunc   => 'AVERAGE',
  31.                 xff     => 0.5,
  32.                 cpoints => 6,
  33.                 rows    => 10,
  34.         },
  35. );
  37. while (<DATA> ) {
  38.         chomp;
  39.         my ($time, $value) = split(/:/, $_);
  40.         print $time, "|", $value, "\n";
  41.         $rrd->update(time => $time, value => $value);
  42. }
  44. $rrd->graph(
  45.         image   =>      "seth.png",
  46.         start           => 1051481100,
  47.         end             => 1051485300,
  48.         imgformat       => "PNG",
  49.         width           => "500",
  50.         height          => "200",
  51.         color           => {
  52.                         canvas  => '#000000',
  53.                         back    => '#101010',
  54.                         font    => '#C0C0C0',
  55.                         mgrid   => '#80C080',
  56.                         grid    => '#808020',
  57.                         frame   => '#808080',
  58.                         arrow   => '#FFFFFF',
  59.                         shadea  => '#404040',
  60.                         shadeb  => '#404040',
  61.         },
  62.         draw            => {
  63.         file            => "myrrdfile.rrd",
  64.         thickness       => 2,
  65.         type            => "line",
  66.         color           => 'FF0000',
  67.         legend          => "vitesse",
  68.         dsname          => "vitesse",
  69.         cfunc           => 'AVERAGE',
  70.         cdef            => "vitesse,3600,*",
  71.         },
  72. );
  74. __DATA__
  75. 1051481100:12345
  76. 1051481400:12357
  77. 1051481700:12363
  78. 1051482000:12363
  79. 1051482300:12363
  80. 1051482600:12373
  81. 1051482900:12383
  82. 1051483200:12393
  83. 1051483500:12399
  84. 1051483800:12405
  85. 1051484100:12411
  86. 1051484400:12415
  87. 1051484700:12420
  88. 1051485000:12422
  89. 1051485300:12423


 
Quand j'enlève le commentaire ligne 70 sur le "CDEF" il me dit:

Code :
  1. rrdtool graph seth.png --width 500 --imgformat PNG --height 200 --end 1051485300 --start 1051481100 CDEF:draw1=vitesse,3600,* LINE2:draw1#FF0000:vitesse --color MGRID#80C080 --color SHADEB#404040 --color GRID#808020 --color BACK#101010 --color FRAME#808080 --color FONT#C0C0C0 --color CANVAS#000000 --color ARROW#FFFFFF --color SHADEA#404040 failed: invalid rpn expression in: vitesse,3600,* at /usr/share/perl5/RRDTool/OO.pm line 438


 
Je ne comprends pas, pourtant le cdef est bien une valeur de graph: http://cpansearch.perl.org/src/MSC [...] Tool/OO.pm
Si vous avez une idée je suis preneur, merci.

Reply

Marsh Posté le 23-12-2013 à 11:46:59   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed