| changeset 20 | a486940be0fb |
| parent 19 | b95a08e3a04f |
| child 25 | 984e6da93d95 |
| 19:b95a08e3a04f | 20:a486940be0fb |
|---|---|
6 |
6 |
7 MAIN: { |
7 MAIN: { |
8 my $me8100 = new ME8100(@DEVICES); |
8 my $me8100 = new ME8100(@DEVICES); |
9 |
9 |
10 while (1) { |
10 while (1) { |
11 my @a = $me8100->read(); |
11 my @a = $me8100->read(1); |
12 print "@a\n"; |
12 print "read: @a\n"; |
13 sleep(1); |
|
14 } |
13 } |
15 |
14 |
16 } |
15 } |
17 |
16 |
18 # vim:sts=4 sw=4 aw ai sm: |
17 # vim:sts=4 sw=4 aw ai sm: |