3 ms·
Here is the command I used (added linebreaks for clarity): rg '<filter pattern>' <logfile> | \ perl -MData::Dumper -n -e ' m/\d{2}:\d{2}:([\d.]+)/; if
by gkfasdfasdf 7y ago
Here is the command I used (added linebreaks for clarity):
rg '<filter pattern>' <logfile> | \
perl -MData::Dumper -n -e '
m/\d{2}:\d{2}:([\d.]+)/;
if ($last) {
$diff = $1 - $last;
print "$diff\n";
$hist{$diff} += 1;
}
$last = $1;
END {
$Data::Dumper::Sortkeys = true;
print Dumper(\%hist);
}
'