added temperature as last value
authorDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 1 Mar 2017 13:51:02 +0000 (14:51 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 1 Mar 2017 13:51:02 +0000 (14:51 +0100)
parse.pl

index 6f6911a..6b9b81a 100755 (executable)
--- a/parse.pl
+++ b/parse.pl
@@ -4,9 +4,10 @@ use strict;
 
 while(<>) {
        chomp;
-       if ( m/^([0-9\.]+) .+aa fc 39 aa (.+)/ ) {
+       if ( m/^([0-9\.]+) .+aa fc 39 aa (.+) \|\s+(\d+\.\d+)/ ) {
                #warn "# $1 $2\n";
-               my @l = split(/\s/,$2);
+               my $temp = $3;
+               my @l = split(/\s+/,$2);
                my @d = (
                        $1,
                        hex( $l[0] . $l[1] ),
@@ -16,6 +17,7 @@ while(<>) {
                        hex( $l[14] ) * 300,
                        hex( $l[15] ) * 400,
                        hex( $l[18] ),
+                       $temp
                );
                print join(',', @d),$/;
        } else {