26 lines
692 B
Perl
Executable File
26 lines
692 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.*")) {
|
|
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";
|