13 my (%inputs, %changed); |
13 my (%inputs, %changed); |
14 |
14 |
15 # first read will be always go through |
15 # first read will be always go through |
16 @inputs{@INPUTS} = $me8100->read(); |
16 @inputs{@INPUTS} = $me8100->read(); |
17 |
17 |
18 print "Read:\n"; |
18 print "Read " . localtime() . "\n"; |
19 print map { sprintf "%20s: %d\n", $_, $inputs{$_} } @INPUTS; |
19 print map { sprintf "%20s: %d\n", $_, $inputs{$_} } @INPUTS; |
20 |
20 |
21 _sleep(10); |
21 _sleep(10); |
22 |
22 |
|
23 @changed{@INPUTS} = $me8100->changed(); |
23 @inputs{@INPUTS} = $me8100->status(); |
24 @inputs{@INPUTS} = $me8100->status(); |
24 print "Status2:\n"; |
25 print "Status / Changed " . localtime() . "\n"; |
25 print map { sprintf "%20s: %d\n", $_, $inputs{$_} } @INPUTS; |
26 print map { sprintf "%20s: %d %d\n", $_, $inputs{$_}, $changed{$_} } @INPUTS; |
26 |
27 |
27 @inputs{@INPUTS} = $me8100->changed(); |
28 print "\nWating...\n\n"; |
28 print "Changed:\n"; |
|
29 print map { sprintf "%20s: %d\n", $_, $inputs{$_} } @INPUTS; |
|
30 |
29 |
31 # and now block 'til the next change... |
30 # and now block 'til the next change... |
32 @inputs{@INPUTS} = $me8100->read(); |
31 @inputs{@INPUTS} = $me8100->read(); |
33 @changed{@INPUTS} = $me8100->changed(); |
32 @changed{@INPUTS} = $me8100->changed(); |
34 print "Finally:\n"; |
33 print "Status / Changed " . localtime() . "\n"; |
35 print map { sprintf "%20s: %d (%d)\n", $_, $inputs{$_}, $changed{$_} } @INPUTS; |
34 print map { sprintf "%20s: %d (%d)\n", $_, $inputs{$_}, $changed{$_} } @INPUTS; |
36 |
35 |
37 } |
36 } |
38 |
37 |
39 # Sleep replacement, since the standard sleep |
38 # Sleep replacement, since the standard sleep |