| changeset 25 | 984e6da93d95 |
| parent 20 | a486940be0fb |
| child 28 | df25c194e3ce |
| 24:24a49943680f | 25:984e6da93d95 |
|---|---|
1 #! /usr/bin/perl -w |
1 #! /usr/bin/perl -w |
2 |
2 |
3 use ME8100; |
3 use ME8100; |
4 |
4 |
5 my @DEVICES = ("/dev/me8100_0a"); |
5 my @DEVICES = qw(/dev/me8100_0a /dev/me8100_0b); |
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(1); |
11 my @a = $me8100->read(); # should block |
12 print "read: @a\n"; |
12 print "read: @a\n"; |
13 } |
13 } |
14 |
14 |
15 } |
15 } |
16 |
16 |