23 lines
575 B
Perl
Executable File
23 lines
575 B
Perl
Executable File
#!/usr/bin/perl
|
|
use v5.24;
|
|
use warnings;
|
|
|
|
open my $tsfh, '>', "graph_free.tsv";
|
|
for my $fn (glob("/var/log/simba/ca.*")) {
|
|
my $fh;
|
|
if ($fn =~ /\.gz$/) {
|
|
open($fh, '-|', "zcat", $fn);
|
|
} else {
|
|
open ($fh, '<', $fn);
|
|
}
|
|
while (<$fh>) {
|
|
if (m{(....-..-..T..:..:..[-+]....) .*: found base /backup/(.*) \(est. (\d+) bytes\)}) {
|
|
say $tsfh "$1\t$2\t$3"
|
|
}
|
|
}
|
|
}
|
|
close $tsfh;
|
|
|
|
open STDOUT, '>', "graph_free.png";
|
|
system "tsplotv", "--style", "points", "--legend-position", "below", "--yrange", "0:*", "graph_free.tsv";
|