Scrape nsca.log and generate carbon formatted strings

nsca-slave-lag.pl

#!/usr/bin/perl -w
use Sys::Hostname;
use Date::Parse;

# extract date string and time
# convert date string to epoch
# format string for carbon
# publish

m/\[(.*)\]:.*: (.*)s ;.*/;

$host = hostname;
$time = str2time($1);
print "sys.hostmetrics.$host.mysql.lag.per_min $2 $time\n";