Find connectivity failures in collectd reports.

pingcsv2stat.pl

#!/usr/bin/perl

use strict;
use warnings;

my $MIN_DELTA = 120;

my $nan;
my $last_good;

while(<>) {
        chomp;
        next unless /^(\d+),(.+)$/;
        if ($2 eq 'nan') {
                $nan = 1;
        } else {
                printf "%5s seconds: %s - %s\n",
                        $last_good ? $1 - $last_good : '?',
                        $last_good ? "".localtime($last_good) : '?',
                        "".localtime($1)
                    if $nan and $last_good and $1 - $last_good > $MIN_DELTA;
                $nan = 0;
                $last_good = $1;
        }
}