diff -r 352d5517f1f2 -r ad264ee5d5ba examples/client --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/examples/client Sun Jan 04 18:42:46 2009 +0100 @@ -0,0 +1,38 @@ +#! /usr/bin/perl + +use strict; +use warnings; +use Quancom; +use Data::Dumper; +# use blib; + +MAIN: { + my $q = new Quancom $ARGV[0]; + + my $r; + + # switch on/off all lights on the first relais + $r = $q->cmd("WB0100FF"); + print $r->ok ? $r->data : $r->error, "\n"; + + sleep 1; + $r = $q->cmd("WB010000"); + print $r->ok ? $r->data : $r->error, "\n"; + + sleep 1; + $r = $q->cmd("WB010001"); # 1 bit setzen + print $r->ok ? $r->data : $r->error, "\n"; + + sleep 1; + $r = $q->cmd("WB010055"); # 0101|0101 + print $r->ok ? $r->data : $r->error, "\n"; + + sleep 1; + $r = $q->cmd("WB0100AA"); # 1010|1010 + print $r->ok ? $r->data : $r->error, "\n"; + + sleep 1; + $r = $q->cmd("SL010000000055"); # + 0101|0101 + print $r->ok ? $r->data : $r->error, "\n"; +} +