#!/usr/bin/perl -w

#use strict;
use Time::HiRes qw/gettimeofday/;

my $PCAN="/dev/pcan32";
my $now_milli = 1000 * gettimeofday();
my %last_value;
my $time_diff;

open my $can_bus, "receivetest -f=$PCAN | sed -e \'s/receivetest: m s 0x//g\' |"
    or die "Couldn't read from CAN bus: $!";

while (<$can_bus>) {
   if( /^(.......\.\d{1,3}) (........) (.*)$/ )
   {
        system('clear'); #clear screen

        my ($something,$id, $payload) = ($1,$2,$3);
        $last_value{ $id } = $payload;
	if(defined $last_value{ $id } )
	{
		$last_value{ $id }{COUNT} += 1;
		$time_diff = $now_milli - $last_value{ $id }{TIME};

		$last_value{ $id }{TIME} = $now_milli;
		$last_value{ $id }{DIFF} = $time_diff;
		$last_value{ $id }{PAYLOAD} = $payload;
	}
	else
	{
		#$last_value{ $id }{COUNT} = 1;
		$last_value{ $id }{TIME} = $now_milli;
		$last_value{ $id }{DIFF} = "NA";
		$last_value{ $id }{PAYLOAD} = $payload;
	}

        #Print Table
        for my $id (sort keys %last_value) {
            print "$id\t $last_value{ $id }\t $last_value{ $id }{COUNT}\t $last_value{ $id }{DIFF}\n";
            }
    }
    #else {
   #     warn "ignore unknown line: ";
   #     warn $_;
   # }
}