equal
deleted
inserted
replaced
2 |
2 |
3 use strict; |
3 use strict; |
4 use warnings; |
4 use warnings; |
5 use Quancom; |
5 use Quancom; |
6 use Data::Dumper; |
6 use Data::Dumper; |
7 |
7 # use blib; |
8 |
8 |
9 MAIN: { |
9 MAIN: { |
10 my $q = new Quancom $ARGV[0]; |
10 my $q = new Quancom $ARGV[0]; |
11 |
11 |
12 my $r; |
12 my $r; |
13 # $r = $q->cmd("WB0101FF"); |
|
14 $r = $q->cmd("WB010001"); # sollte(!) gehen |
|
15 print $r->error_message, "\n" if $r->error; |
|
16 |
13 |
17 print $r->ok; |
14 # switch on/off all lights on the first relais |
18 print $q->last_result->ok; |
15 $r = $q->cmd("WB0100FF"); |
|
16 print $r->ok ? $r->data : $r->error, "\n"; |
19 |
17 |
|
18 sleep 1; |
|
19 $r = $q->cmd("WB010000"); |
|
20 print $r->ok ? $r->data : $r->error, "\n"; |
|
21 |
|
22 sleep 1; |
|
23 $r = $q->cmd("WB010001"); # 1 bit setzen |
|
24 print $r->ok ? $r->data : $r->error, "\n"; |
20 } |
25 } |
21 |
26 |