changeset 3 | 200d69222aed |
parent 2 | a19ea3b8c48d |
2:a19ea3b8c48d | 3:200d69222aed |
---|---|
1 #! /usr/bin/perl |
|
2 |
|
3 use strict; |
|
4 use warnings; |
|
5 use Quancom; |
|
6 use Data::Dumper; |
|
7 |
|
8 |
|
9 MAIN: { |
|
10 my $q = new Quancom $ARGV[0]; |
|
11 |
|
12 my $r; |
|
13 $r = $q->cmd("WB0101FF"); |
|
14 print $r->error_message, "\n" if $r->error; |
|
15 |
|
16 print $r->ok; |
|
17 print $q->last_result->ok; |
|
18 } |
|
19 |