diff -r d1686272f84d -r b95a08e3a04f me8100_test_perl/test.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/me8100_test_perl/test.pl Thu Jan 24 17:51:57 2002 +0100 @@ -0,0 +1,18 @@ +#! /usr/bin/perl -w + +use ME8100; + +my @DEVICES = ("/dev/me8100_0a"); + +MAIN: { + my $me8100 = new ME8100(@DEVICES); + + while (1) { + my @a = $me8100->read(); + print "@a\n"; + sleep(1); + } + +} + +# vim:sts=4 sw=4 aw ai sm: