Perl

Plugin Munin de verification du cache REDIS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Plugin Munin de verification du cache REDIS

mechkurt

Bonjour, je souhaites monitorer le cache de mon serveur (Cento 6.7) à l'aide de Munin, j'ai essayé plusieurs plugin dont celui-ci (conseillé sur la page officiel redis) https://gist.github.com/colinmollenhour/1177716

Impossible pourtant de le faire fonctionner

Code :

[root@????????????]# munin-node-configure --suggest
Plugin | Used | Suggestions
------ | ---- | -----------
[...]
redis_ | no | no
[...]
# The following plugins caused errors:
[...]
# redis_:
# Junk printed to stderr
[...]

Doit je installer d'autres choses au niveau de perl ?
Le message d'erreur n'est pas d'un grande aide...

---------------
D3

Publicité

gilou

Modérateur
Modosaurus Rex

1) Il y a une release de Perl fonctionnelle sur la machine?
2) les modules appelés par une clause use, IO::Sockets et Switch, ont été installés? (a priori, ils ne le sont pas par défaut dans une installation basique de perl), sinon les installer.
3) Vous avez suivi les instructions?

Citation :

## 1. Download the plugin to your plugins directory (e.g. /usr/share/munin/plugins)
## 2. Create a symlink using either individual graph names or use the wildcard name: redis_
## 3. Edit plugin-conf.d/munin-node if it is needed:
## env.host and env.port (if using tcp, default is 127.0.0.1:6379)
## env.path (if using sockets)
## env.password (for password protected Redis server)
## 4. Restart munin-node service

A+,

Message édité par gilou le 04-03-2016 à 22:50:08

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

mechkurt

1) oui

Code :

[root@???????? ~]# perl -v
This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi
Copyright 1987-2009, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

2) Je ne sais pas, c'est un peu le propos de ma question, j'ai essayé de simplifier le script au maximum et de l’exécuter, voila ce que ça donne :

Code :

#!/usr/bin/perl -w
#
##
##
use strict;
use Switch;
my $category = 'test';
switch ($category) {
case "test" {
print "switch:test $category\n";
}
case "somethingelse" {
print "switch:somethingelse\n";
}
}
exit 0;

=> Affiche bien "switch:test test"
Par contre

Code :

#!/usr/bin/perl -w
#
##
##
use strict;
use Switch;
use IO::Socket;
my $HOST = "127.0.0.1";
my $PORT = 6379;
my $server = "$HOST:$PORT";
$class = "IO::Socket::INET";
%options = (PeerAddr => $server,Proto => 'tcp');
my $sock = $class->new(%options) || die "no (Could not connect to redis: $!)";
# Get redis info (2.4+)
print $sock "INFO\r\n";
my $result = <$sock> || die "no (Can't read redis socket: $!)";
my $rep;
read($sock, $rep, substr($result,1)) || die "no (Can't read redis socket: $!)";
foreach (split(/\r\n/, $rep)) {
my ($key,$val) = split(/:/, $_, 2);
print "redis: $key => $val\n";
}
close ($sock);
my $category = 'test';
switch ($category) {
case "test" {
print "switch:test $category\n";
}
case "somethingelse" {
print "switch:somethingelse\n";
}
}
exit 0;

affiche :
Global symbol "$class" requires explicit package name at test-perl.pl line 15.
Global symbol "%options" requires explicit package name at test-perl.pl line 16.
Global symbol "$class" requires explicit package name at test-perl.pl line 17.
Global symbol "%options" requires explicit package name at test-perl.pl line 17.
Execution of test-perl.pl aborted due to compilation errors.
3) A priori oui, j'ai refait plusieurs fois les manips, et j'ai le même problème avec d'autres scripts sensé faire la même chose...

J'ai essayé de :

Code :

[root@???????? ~]# yum install 'perl(IO::Socket::UNIX)'
Modules complémentaires chargés : fastestmirror
Configuration du processus d'installation
Loading mirror speeds from cached hostfile
* base: mirror0.babylon.network
* epel: mirror0.babylon.network
* extras: mirror0.babylon.network
* remi: rpms.remirepo.net
* remi-safe: rpms.remirepo.net
* updates: mirror0.babylon.network
Le paquet 4:perl-5.10.1-141.el6_7.1.x86_64 est déjà installé dans sa dernière version
Rien à faire

Message édité par mechkurt le 07-03-2016 à 15:18:54

---------------
D3

gilou

Modérateur
Modosaurus Rex

il va falloir installer le module IO::Socket.

L'article suivant: http://www.thegeekstuff.com/2008/0 [...] n-command/ dans sa seconde partie "Install Perl Modules using CPAN automatically" va vous expliquer très clairement la marche a suivre.

Bref vous installez cpan s'il n'est pas déjà installé, en suivant la procédure indiquée, puis vous faites
# cpan
....
cpan[1]> install "IO::Socket";
...
cpan[...]>quit
#

et ça devrait rouler (sauf erreur lors de l'installation du module par cpan, mais c'est relativement rare, en particulier pour des modules aussi basiques).

A+,

Message édité par gilou le 07-03-2016 à 11:59:16

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

mechkurt

Code :

cpan[3]> install 'IO::Socket'
IO::Socket is up to date (1.31).

mais

Code :

#!/usr/bin/perl -w
#
##
##
use strict;
use Switch;
use IO::Socket;
my $HOST = "127.0.0.1";
my $PORT = 6379;
my $server = "$HOST:$PORT";
$class = "IO::Socket::INET";
%options = (PeerAddr => $server,Proto => 'tcp');
my $sock = $class->new(%options) || die "no (Could not connect to redis: $!)";
# Get redis info (2.4+)
print $sock "INFO\r\n";
my $result = <$sock> || die "no (Can't read redis socket: $!)";
my $rep;
read($sock, $rep, substr($result,1)) || die "no (Can't read redis socket: $!)";
foreach (split(/\r\n/, $rep)) {
my ($key,$val) = split(/:/, $_, 2);
print "redis: $key => $val\n";
}
close ($sock);
exit 0;

Code :

Global symbol "$class" requires explicit package name at test-perl.pl line 13.
Global symbol "%options" requires explicit package name at test-perl.pl line 14.
Global symbol "$class" requires explicit package name at test-perl.pl line 15.
Global symbol "%options" requires explicit package name at test-perl.pl line 15.
Execution of test-perl.pl aborted due to compilation errors.

Message cité 1 fois
Message édité par mechkurt le 07-03-2016 à 14:09:59

---------------
D3

mechkurt

J'ai essayé de modifier un peu mon script de test en mettant "en dur" ma connexion, ça marche mieux :

Code :

#!/usr/bin/perl -w
use strict;
use IO::Socket;
my $sock = IO::Socket::INET->new(PeerAddr => '127.0.0.1:6379', Proto => 'tcp');
# Get redis info (2.4+)
print $sock "INFO\r\n";
my $result = <$sock> || die "no (Can't read redis socket: $!)";
my $rep;
read($sock, $rep, substr($result,1)) || die "no (Can't read redis socket: $!)";
foreach (split(/\r\n/, $rep)) {
my ($key,$val) = split(/:/, $_, 2);
print "redis: $key => $val\n";
}
close ($sock);
exit 0;

Code :

Use of uninitialized value $val in concatenation (.) or string at test-perl.pl line 15, <GEN0> line 1.
redis: # Server =>
redis: redis_version => 3.0.7
redis: redis_git_sha1 => 00000000
redis: redis_git_dirty => 0
redis: redis_build_id => 5ece30e075eed8d2
redis: redis_mode => standalone
redis: os => Linux 3.14.32-xxxx-grs-ipv6-64 x86_64
redis: arch_bits => 64
redis: multiplexing_api => epoll
redis: gcc_version => 4.4.7
redis: process_id => 50972
redis: run_id => 44d67c0efe74c6695b1a63bf7c79a26dfc492fbd
redis: tcp_port => 6379
redis: uptime_in_seconds => 966483
redis: uptime_in_days => 11
redis: hz => 10
redis: lru_clock => 14519093
redis: config_file => /etc/redis.conf
Use of uninitialized value $key in concatenation (.) or string at test-perl.pl line 15, <GEN0> line 1.
Use of uninitialized value $val in concatenation (.) or string at test-perl.pl line 15, <GEN0> line 1.
redis: =>
Use of uninitialized value $val in concatenation (.) or string at test-perl.pl line 15, <GEN0> line 1.
redis: # Clients =>
redis: connected_clients => 2
redis: client_longest_output_list => 0
redis: client_biggest_input_buf => 0
redis: blocked_clients => 0
Use of uninitialized value $key in concatenation (.) or string at test-perl.pl line 15, <GEN0> line 1.
Use of uninitialized value $val in concatenation (.) or string at test-perl.pl line 15, <GEN0> line 1.
[etc...]

Du coups je me demande si l'autoconf de munin qui bug avec "Junk printed to stderr" vient ptet du fait qu'il utilise des variables parfois non initialisé, comment je pourrais régler ça, en faisant l’équivalent d'un isset() avant chaque print ?

---------------
D3

rat de combat

attention rongeur méchant!

mechkurt a écrit :

Code :

Global symbol "$class" requires explicit package name at test-perl.pl line 13.
Global symbol "%options" requires explicit package name at test-perl.pl line 14.
Global symbol "$class" requires explicit package name at test-perl.pl line 15.
Global symbol "%options" requires explicit package name at test-perl.pl line 15.
Execution of test-perl.pl aborted due to compilation errors.

Ces erreurs me paraissent logique vue le code, il faut soit déclarer tout ses variables soit virer le use strict (mauvaise idée).

gilou

Modérateur
Modosaurus Rex

La il suffit juste de faire deux petites modifications avec un my en début de ligne:
my $class = "IO::Socket::INET";
my %options = (PeerAddr => $server,Proto => 'tcp');

A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

mechkurt

me suis débrouillé en modifiant la fonction get_stats du script initial comme suit :

Code :

sub get_stats {
use IO::Socket;
my $sock = IO::Socket::INET->new(PeerAddr => '127.0.0.1:6379', Proto => 'tcp');
# Get redis info (2.4+)
print $sock "INFO\r\n";
my $result = <$sock> || die "no (Can't read redis socket: $!)";
my $rep;
read($sock, $rep, substr($result,1)) || die "no (Can't read redis socket: $!)";
my $hash;
no warnings 'uninitialized';
foreach (split(/\r\n/, $rep)) {
my ($key,$val) = split(/:/, $_, 2);
if ( length $key && length $val ) {
$hash->{$key} = $val;
}
}
close ($sock);
return $hash;
}

Et ça fonctionne, en tout cas j'ai des stats... ^^

Par contre maintenant je me bat avec le plugin Mysql car il faut une extension Cache::SharedMemoryCache, que je n'arrives pas à installer :

Code :

[root@?????????? ~]# /usr/share/munin/plugins/mysql_ suggest
Missing dependency Cache::Cache at /usr/share/munin/plugins/mysql_ line 728.
[root@?????????? ~]# cpan
Terminal does not support AddHistory.
cpan shell -- CPAN exploration and modules installation (v1.9402)
Enter 'h' for help.
cpan[1]> install 'Cache::SharedMemoryCache'
CPAN: Storable loaded ok (v2.20)
Going to read '/root/.cpan/Metadata'
Database was generated on Mon, 07 Mar 2016 05:17:02 GMT
Cache::SharedMemoryCache is up to date (undef).

J'ai googlé un peu et pas mal de gens semblent avoir résolut le problème en installant IPC::ShareLite (via cpan ou paquet EPEL) mais ça ne fonctionne pas pour moi... :- /

---------------
D3

FORUM HardWare.fr

Programmation

Perl

Plugin Munin de verification du cache REDIS

Sujets relatifs
Vérification d'un code	Options possibles suite à la vérification du nom des onglets
macro excel de verification	Vérification mot de pase [JAVASCOOL]
Code vérification lien mort sur site	Faire rapparaitre un onglet caché dans les fichiers d'un dossier (VBA)
Codeur Java Pour Plugin Minecraft	Mangodb / Redis : Pour indexer/Chercher fichier locaux
Lancer iexplore en "mode caché" via un vbs ?	JAVASCRIPT > problème de vérification mail (formulaire)
Plus de sujets relatifs à : Plugin Munin de verification du cache REDIS

Page générée en 0.088 secondes