simba/scripts/graph_used

#!/usr/bin/perl 
use v5.24;
use warnings;

open my $tsfh, '>', "graph_used.tsv";
for my $fn (glob("/var/log/simba/ca.*")) {
    my $fh;
    if ($fn =~ /\.gz$/) {
        open($fh, '-|', "zcat", $fn);
    } else {
        open ($fh, '<', $fn);
    }
    my %free;
    while (<$fh>) {
        if (m{(....-..-..T..:..:..[-+]....) .*: considering base /backup/(.*) \(est. (\d+) bytes\)}) {
            $free{$2} = $3;
        } elsif (m{(....-..-..T..:..:..[-+]....) .*: using base /backup/(.*)}) {
            say $tsfh "$1\t$2\t$free{$2}"
        }
    }
}
close $tsfh;

open STDOUT, '>', "graph_used.png";
system "tsplotv", "--style", "points", "--legend-position", "below", "graph_used.tsv";