me8100_test_perl/test.pl
changeset 32 e0b741bb5ce0
parent 31 33280ad0f4b2
--- a/me8100_test_perl/test.pl	Mon Jan 28 22:23:55 2002 +0100
+++ b/me8100_test_perl/test.pl	Wed Jan 30 12:46:42 2002 +0100
@@ -15,23 +15,22 @@
     # first read will be always go through
     @inputs{@INPUTS} = $me8100->read();
 
-    print "Read:\n";
+    print "Read " . localtime() . "\n";
     print map { sprintf "%20s: %d\n", $_, $inputs{$_} } @INPUTS;
 
-    _sleep(10);		   
+    _sleep(10);
 			  
+    @changed{@INPUTS} = $me8100->changed();
     @inputs{@INPUTS} = $me8100->status();
-    print "Status2:\n";
-    print map { sprintf "%20s: %d\n", $_, $inputs{$_} } @INPUTS;
+    print "Status / Changed " . localtime() . "\n";
+    print map { sprintf "%20s: %d %d\n", $_, $inputs{$_}, $changed{$_} } @INPUTS;
 
-    @inputs{@INPUTS} = $me8100->changed();
-    print "Changed:\n";
-    print map { sprintf "%20s: %d\n", $_, $inputs{$_} } @INPUTS;
+    print "\nWating...\n\n";
 
     # and now block 'til the next change...
     @inputs{@INPUTS} = $me8100->read();
     @changed{@INPUTS} = $me8100->changed();
-    print "Finally:\n";
+    print "Status / Changed " . localtime() . "\n";
     print map { sprintf "%20s: %d (%d)\n", $_, $inputs{$_}, $changed{$_} } @INPUTS;
 
 }