parse serial log into csv

diff --git a/parse.pl b/parse.pl
new file mode 100755 (executable)
index 0000000..6f6911a
--- /dev/null
+++ b/parse.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+while(<>) {
+       chomp;
+       if ( m/^([0-9\.]+) .+aa fc 39 aa (.+)/ ) {
+               #warn "# $1 $2\n";
+               my @l = split(/\s/,$2);
+               my @d = (
+                       $1,
+                       hex( $l[0] . $l[1] ),
+                       hex( $l[3] . $l[4] ),
+                       hex( $l[6] ),
+                       hex( $l[12] ),
+                       hex( $l[14] ) * 300,
+                       hex( $l[15] ) * 400,
+                       hex( $l[18] ),
+               );
+               print join(',', @d),$/;
+       } else {
+               warn "# $_\n";
+       }
+}