Crappy little perl script to extract perfdata from nagios and send it to graphite.

nagios-log-to-statsd.pl

use Net::StatsD::Client;
use strict;

my $client = Net::StatsD::Client->new(host=>"your-statsd-host-here");
while(<>){
my ($host,$service,$perfdata) = split(/~/);

$host =~ s/\./-/g;
$service =~ s/ /_/g ;
my $prefix= "nagios." . $host . "." . $service;

my @perfdata_parts = split(";",$perfdata);
foreach (@perfdata_parts){
   if (m/([a-z]*)=([0-9\.]*)/){
      my $metric = $prefix . "." . $1 ;
      $client->timing($metric,$2);
}
}
}