--- 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;
}