summaryrefslogtreecommitdiff
path: root/i/serialplot/read.pl
diff options
context:
space:
mode:
authorburg2004-09-16 21:56:23 +0000
committerburg2004-09-16 21:56:23 +0000
commita71794a21bc198974ff2bd144e0a372c28b7654a (patch)
treec4da85ee14ee8b125f09fe7e678b8d6aab6fd680 /i/serialplot/read.pl
parent4cec479dc34b237e6975c3cf232490e95a70a31e (diff)
Initial revision
Diffstat (limited to 'i/serialplot/read.pl')
-rw-r--r--i/serialplot/read.pl46
1 files changed, 46 insertions, 0 deletions
diff --git a/i/serialplot/read.pl b/i/serialplot/read.pl
new file mode 100644
index 0000000..0a9c722
--- /dev/null
+++ b/i/serialplot/read.pl
@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+#use strict;
+
+my $i=0;
+my $tab;
+my $init=0;
+
+while (defined($line = <STDIN>) && $init == 0)
+{
+ #if ($line =~ m/[P-W][0-9a-f1-F]{2},[0-9a-f1-F]{2}/)
+ {
+ $tab[$i] = substr ($line,1,1);
+ for (my $j=0; $j<= $i-1; $j++)
+ {
+ if (substr($line,1,1) eq $tab[$j])
+ {
+ $init =1;
+ }
+
+ }
+ $i++ if ($init == 0);
+ }
+}
+
+
+for (my $j=0; $j <= $i; $j++)
+{
+ $line = <STDIN>;
+}
+
+while ($init != 2 )
+{
+ for (my $j=0; $j <= $i-1; $j++)
+ {
+ if (defined($line = <STDIN>))
+ {
+ print "0x" . substr($line,2,2) . substr($line,5,2);
+ }
+ else
+ {
+ $init = 2;
+ }
+ print " ";
+ }
+ print "\n";
+}