equal
deleted
inserted
replaced
1 #! /usr/bin/perl -w |
1 #! /usr/bin/perl -w |
2 |
2 |
3 use ME8100; |
3 use ME8100; |
4 |
4 |
5 my @DEVICES = qw(/dev/me8100_0a /dev/me8100_0b); |
5 my @DEVICES = qw(/dev/me8100_0a /dev/me8100_0b); |
|
6 my @INPUTS = qw(Tür1 Tür2 Feuerlöscher); |
|
7 |
6 |
8 |
7 MAIN: { |
9 MAIN: { |
8 my $me8100 = new ME8100(@DEVICES); |
10 my $me8100 = new ME8100(@DEVICES); |
|
11 my %inputs; |
9 |
12 |
10 while (1) { |
13 # first read will be always go through |
11 my @a = $me8100->read(); # should block |
14 @inputs{@INPUTS} = $me8100->read(); |
12 print "** <@a> **\n"; |
15 print "Read:\n"; |
13 sleep(1000); |
16 print map { sprintf "%20s: %d\n", $_, $inputs{$_} } @INPUTS; |
14 } |
17 |
|
18 @inputs{@INPUTS} = $me8100->status(); |
|
19 print "Status:\n"; |
|
20 print map { sprintf "%20s: %d\n", $_, $inputs{$_} } @INPUTS; |
|
21 |
15 |
22 |
16 } |
23 } |
17 |
24 |
18 # vim:sts=4 sw=4 aw ai sm: |
25 # vim:sts=4 sw=4 aw ai sm: |