| changeset 6 | cfc898fd62f1 |
| parent 4 | 6f1e9c4bee3c |
| child 7 | 9c3e112933ae |
| 5:1aa41c487e44 | 6:cfc898fd62f1 |
|---|---|
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"); |
13 # $r = $q->cmd("WB0101FF"); |
14 $r = $q->cmd("WB010001"); # sollte(!) gehen |
|
14 print $r->error_message, "\n" if $r->error; |
15 print $r->error_message, "\n" if $r->error; |
15 |
16 |
16 print $r->ok; |
17 print $r->ok; |
17 print $q->last_result->ok; |
18 print $q->last_result->ok; |
19 |
|
18 } |
20 } |
19 |
21 |