examples/client
changeset 18 a6bc8818d069
parent 17 ecc10b50b7a6
child 19 6acf8ea44e0a
equal deleted inserted replaced
17:ecc10b50b7a6 18:a6bc8818d069
    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