examples/client
changeset 20 94281ba012c8
parent 19 6acf8ea44e0a
child 22 7690e12fafda
equal deleted inserted replaced
19:6acf8ea44e0a 20:94281ba012c8
     4 # perl -Mblib examples/client ...
     4 # perl -Mblib examples/client ...
     5 
     5 
     6 use strict;
     6 use strict;
     7 use warnings;
     7 use warnings;
     8 use Quancom;
     8 use Quancom;
       
     9 use Time::HiRes qw(usleep);
     9 use Data::Dumper;
    10 use Data::Dumper;
    10 
    11 
    11 MAIN: {
    12 MAIN: {
    12     my $q = new Quancom $ARGV[0];
    13     my $q = new Quancom $ARGV[0];
    13 
    14 
    14     my $r;
    15     my $r;
    15     $q->set(1, 8  => 1)->ok or die $q->last_result->error_message;
    16     foreach (1..64) {
    16     $q->set(2, 64 => 1)->ok or die $q->last_result->error_message;
    17 	$q->set($_ => 1);
       
    18 	usleep 1e6/20;
       
    19     }
       
    20     foreach (1..64) {
       
    21 	$q->set($_ => 0);
       
    22 	usleep 1e6/20;
       
    23     }
    17 
    24 
    18     # reset
    25     # reset
    19     $q->full_reset->ok or warn "err: " . $q->last_result->error_message . "\n";
    26     $q->full_reset->ok or warn "err: " . $q->last_result->error_message . "\n";
    20 
    27 
    21     # does not work
    28     # does not work