Tag-Archive for » perl «

Tuesday, March 03rd, 2009 | Author:

Petit post rapide en forme de pense bête : pour extraire des infos sur les I/O des pools ZFS en perl (sous solaris) :

#!/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";

A venir : un plugin munin pour grapher les I/O ZFS

Category: Code, OpenSolaris, SysAdmin  | Tags: ,  | One Comment