simba/scripts/graph_used

21 lines
596 B
Perl
Executable File

#!/usr/bin/perl
use v5.24;
use warnings;
open my $tsfh, '>', "graph_used.tsv";
for my $fn (glob("/var/log/simba/ca.*")) {
open (my $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";