Differences

This shows you the differences between two versions of the page.

--- projects:logger [2013/03/12 14:13] – created photonicsguy
+++ projects:logger [2014/11/13 10:50] (current) – external edit 127.0.0.1
@@ Line 1: / Line 1: @@
 ====== Data Logging ======
 ===== Software =====
-[[http://www.live-graph.org/|LiveGraph]] - Excellent graphing software written in Java
+Perl program is on it's way, writing it now.
+[[http://www.live-graph.org/|LiveGraph]] - Excellent graphing software written in Java, I use it as a frontend.
+==== Perl Script ====
+=== Install ===
+<file bash>sudo cpan -i Device::SerialPort
+sudo cpan -i DBI
+sudo cpan -i LWP::Simple
+sudo cpan -i Time::HiRes
+</file>
+=== Files ===
+<file perl logger.inc.pl>$SERIALPORT="/dev/ttyUSB0";
+$SERIALBAUD=19200;
+# Delay between updates
+$DELAY=0.3;
+$DataFile='/tmp/monitordata.lgdat';
+</file>
+<file perl bytetest.pl>#!/usr/bin/perl
+$num=pack( 'L>',120000);
+#$buf="Pear";
+$buf="\x00\x00\x00\x01$num\xff\xff\xff\xff\x00\x00\xff\xffPear";
+print "Test data:\t$buf\n";
+#$buf=[hex('00'),hex('00'),hex('00').hex('01')];
+#$buf="ABCDEF";
+#my @data = unpack('L>*', $buf);
+@values=unpack "L>*", $buf;		# < or > specifies endianness
+#print $values;
+ foreach my $val (@values) {
+    print "$val\n";
+  }
+</file>