Solaris est un OS qui a de grande capacités de debug, et la commande kstat permet d'accéder à plein d'infos. Comment y accéder en perl ? facile !

#!/usr/perl5/bin/perl -w
 
use strict;
use Sun::Solaris::Kstat;
 
my $Kstat = Sun::Solaris::Kstat->new();
 
my $bytes_read = ${Kstat}->{unix}->{0}->{vopstats_zfs}->{read_bytes};
my $bytes_write = ${Kstat}->{unix}->{0}->{vopstats_zfs}->{write_bytes};
 
print $bytes_read." / ".$bytes_write."\n";

Vous donnera l'équivalent de :

nico@solaris $ kstat -m unix -n vopstats_zfs -s read_bytes -p
unix:0:vopstats_zfs:read_bytes  7522414815119

L'objet Kstat créé plus haut contient les données au moment de son instanciation, pour mettre les données à jour, un petit appel à la méthode update est du meilleur aloi :)

perl/acces_kstat_solaris.txt · Last modified: 2010/01/12 13:29 (external edit)
www.chimeric.de Creative Commons License Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0