if ( m/^([0-9\.]+) .+aa fc 39 aa (.+)/ ) {
my $t = $1;
#warn "# $1 $2\n";
- my @l = split(/\s/,$2);
+ my @l = split(/\s+/,$2);
my @d = (
$t,
hex( $l[0] . $l[1] ),
hex( $l[14] ), # * 300,
hex( $l[15] ), # * 400,
hex( $l[18] ),
+ $temp
);
if ( $influx ) {
open($curl, '|-', qq( tee /dev/shm/parse.curl | curl -XPOST $influx --data-binary \@- )) unless $curl;