Hacker News new | ask | show | jobs
by gkfasdfasdf 2511 days 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);
  }
  '