Differences

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

--- projects:logger [2013/03/12 14:44] – photonicsguy
+++ projects:logger [2014/11/13 10:50] (current) – external edit 127.0.0.1
@@ Line 2: / Line 2: @@
 ===== Software =====
-[[http://www.live-graph.org/|LiveGraph]] - Excellent graphing software written in Java
+Perl program is on it's way, writing it now.
-<file bash> alias livegraph="java -jar /opt/LiveGraph.2.0.beta01.Complete/LiveGraph.2.0.beta01.Complete.jar"</file>
+[[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
@@ Line 10: / Line 14: @@
 sudo cpan -i LWP::Simple
 sudo cpan -i Time::HiRes
-</file>
+</file>
+=== Files ===
 <file perl logger.inc.pl>$SERIALPORT="/dev/ttyUSB0";
 $SERIALBAUD=19200;
@@ Line 19: / Line 24: @@
 $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>