Thanks for posting this plugin, I have used it as an inspiration for a munin plugin that uses the fsstat system to pull filesystem data via a mountpoint:

#!/usr/bin/perl -w
# ZFS IO Plugin
# By Nate Custer

use strict;
use Switch;

my $num_samples = 5;

my $fs_name = $0 ;
$fs_name =~ s/\/etc\/munin\/plugins\/zfs_io_//g ;

if($ARGV[0] && $ARGV[0] eq “config”) {
print “graph_title $fs_name ZFS IO Operations\n”;
print “graph_args –base 1024 -l 0\n”;
print “graph_category Zfs\n”;

print “newfile.label New_Files\n”;
print “newfile.info Number of New Files Created per Second\n”;
print “newfile.draw AREA\n”;
print “newfile.min 0\n” ;

print “namerm.label NameRm\n”;
print “namerm.info Number of Name Remove Opperations per Second\n”;
print “namerm.draw STACK\n”;
print “namerm.min 0\n” ;

print “namechng.label NameChng\n”;
print “namechng.info Number of Name Change Opperations per Second\n”;
print “namechng.draw STACK\n”;
print “namechng.min 0\n” ;

print “attrget.label AttrGet\n”;
print “attrget.info Number of Attribute Get Opperations per Second\n”;
print “attrget.draw STACK\n”;
print “attrget.min 0\n” ;

print “attrset.label AttrSet\n”;
print “attrset.info Number of Attribute Set Opperations per Second\n”;
print “attrset.draw STACK\n”;
print “attrset.min 0\n” ;

print “lookup.label Lookup\n”;
print “lookup.info Number of Lookup Opperations per Second\n”;
print “lookup.draw STACK\n”;
print “lookup.min 0\n” ;

print “rddir.label ReadDir\n”;
print “rddir.info Number of Read Directory Opperations per Second\n”;
print “rddir.draw STACK\n”;
print “rddir.min 0\n” ;

print “read.label ReadObj\n”;
print “read.info Number of Read Object Opperations per Second\n”;
print “read.draw STACK\n”;
print “read.min 0\n” ;

print “write.label WriteObj\n”;
print “write.info Number of Write Object Opperations per Second\n”;
print “write.draw STACK\n”;
print “write.min 0\n” ;

exit 0;
}

sub convert {
my $foo = $_['0'] ;
my $num = 0 ;
switch ($foo) {
case /K$/ {
$foo =~ s/K//g ;
$num = $foo * 1024 ;
return $num ;
}
case /M$/ {
$foo =~ s/M//g ;
$num = $foo * (1024**2) ;
return $num ;
}
case /G$/ {
$foo =~ s/G//g ;
$num = $foo * (1024**3) ;
return $num ;
}
case /T$/ {
$foo =~ s/T//g ;
$num = $foo * (1024**4) ;
return $num ;
}

case /P$/ {
$foo =~ s/P//g ;
$num = $foo * (1024**5) ;
return $num ;
}
case /E$/ {
$foo =~ s/E//g ;
$num = $foo * (1024**6) ;
return $num ;
}
else {
return $foo ;
}

}
}

# new name name attr attr lookup rddir read read write write
# file remov chng get set ops ops ops bytes ops bytes

my $fsstat_cmd=`/usr/bin/fsstat /$fs_name 1 $num_samples | /usr/bin/tail -n $num_samples` ;
my @foo = split(/\n/, $fsstat_cmd) ;
my $new_file = 0;
my $name_remov = 0;
my $name_chng = 0;
my $attr_get = 0;
my $attr_set = 0;
my $lookup = 0;
my $rddir = 0 ;
my $read = 0 ;
my $write = 0 ;

foreach(@foo) {
# print $_.”\n” ;
$_ =~ s/^\s+//g ;
my @bar = (split(/\s+/, $_)) ;
$new_file += convert($bar[0]) ;
$name_remov += convert($bar[1]) ;
$name_chng += convert($bar[2]);
$attr_get += convert($bar[3]);
$attr_set += convert($bar[4]);
$lookup += convert($bar[5]);
$rddir += convert($bar[6]);
$read += convert($bar[7]);
$write += convert($bar[9]);
}

print “newfile.value “.($new_file / $num_samples).”\n”;
print “namerm.value “.($name_remov / $num_samples).”\n”;
print “namechng.value “.($name_chng / $num_samples).”\n”;
print “attrget.value “.($attr_get / $num_samples).”\n”;
print “attrset.value “.($attr_set / $num_samples).”\n”;
print “lookup.value “.($lookup / $num_samples).”\n”;
print “rddir.value “.($rddir / $num_samples).”\n”;
print “read.value “.($read / $num_samples).”\n”;
print “write.value “.($write / $num_samples).”\n”;

exit 0;