scripts/ninja-ts

#!/usr/bin/perl
# ninja-ts - wsa's Add A Time Stamp Filter V1.1
# written by Wolfram Sang, (C) 2009 Pengutronix, (C) 2022 Sang Engineering
# free software - no warranty - WTFPL V2, see http://sam.zoy.org/wtfpl/

use warnings;
use strict;
use Time::HiRes qw(gettimeofday tv_interval);

my $arg = defined($ARGV[0]) ? $ARGV[0] : '(?=foo)bar'; # false-branch is a regexp that never matches
if ($arg eq '--help' or $arg eq '-h') {
	print "ninja-ts [regexp] - a filter which prepends a timestamp to every line of STDOUT; time will be reset if [regexp] matches\n";
	print "  Example: picocom <picocom_options> | ninja-ts 'Starting kernel ...'\n";
	exit 0;
}

my $old;
my $base;
$| = 1; # Flush output immediately

sub reset_time {
	$old = 0;
	$base = [gettimeofday()];
}

reset_time;
while (<STDIN>) {
	reset_time if (/$arg/o);
	my $new = tv_interval($base);
	my $diff = $new - $old;
	printf("[%10.6f] <%10.6f> $_", $new, $diff);
	$old = $new;
}