equal
deleted
inserted
replaced
12 my $q = new Quancom $ARGV[0]; |
12 my $q = new Quancom $ARGV[0]; |
13 |
13 |
14 my $r; |
14 my $r; |
15 |
15 |
16 # reset |
16 # reset |
17 $r = $q->full_reset; |
17 $q->full_reset->ok or die $q->last_result->error_message; |
18 print $r->ok ? $r->data : $r->error_message, "\n"; |
18 |
|
19 # does not work |
|
20 #$q->cmd("RB 0007")->ok or die $q->last_result->error_message; |
|
21 #print "***: " . $q->last_result->data . "\n"; |
|
22 #$q->set_timeout(5)->ok or die $q->last_result->error_message; |
|
23 #$q->cmd("WB 0100 FF")->ok or die $q->last_result->error_message; |
|
24 #$q->cmd("RB 0007")->ok or die $q->last_result->error_message; |
|
25 #print "***: " . $q->last_result->data . "\n"; |
|
26 #exit; |
19 |
27 |
20 foreach ( |
28 foreach ( |
21 qw( |
29 qw( |
22 WX.0100.FF.FF.FF.FF.FF.FF.FF.FF |
30 WX.0100.FF.FF.FF.FF.FF.FF.FF.FF |
23 WX.0100.00.00.00.00.00.00.00.00 |
31 WX.0100.00.00.00.00.00.00.00.00 |
26 WB.0100.55 |
34 WB.0100.55 |
27 WB.0100.AA |
35 WB.0100.AA |
28 WL.0100.00.55.00.55 |
36 WL.0100.00.55.00.55 |
29 SL.0100.00.55.00.55 |
37 SL.0100.00.55.00.55 |
30 CL.0100.00.55.00.55 |
38 CL.0100.00.55.00.55 |
|
39 WX.0100.FF.FF.FF.FF.FF.FF.FF.FF |
31 ) |
40 ) |
32 ) |
41 ) |
33 { |
42 { |
34 $r = $q->cmd($_); |
43 $r = $q->cmd($_); |
35 print "err: " . $r->error_message . "\n" if not $r->ok; |
44 print "err: " . $r->error_message . "\n" if not $r->ok; |
36 |
45 |
37 /.(.)\.(....)/; |
46 /.(.)\.(....)/; |
38 $r = $q->cmd("R$1$2"); |
47 $r = $q->cmd("R$1$2"); |
39 if ($r->ok) { |
48 if ($r->ok) { |
40 print "got: " . $r->data . "\n"; |
49 print "got: " . $r->data . "\n"; |
41 } |
50 } |
42 else { |
51 else { |
43 print "err: " . $r->error_message . "\n" if not $r->ok; |
52 print "err: " . $r->error_message . "\n" if not $r->ok; |
44 } |
53 } |
45 sleep 1; |
54 sleep 1; |
46 } |
55 } |
47 |
56 |
48 } |
57 } |
49 |
58 |