examples/client
changeset 22 7690e12fafda
parent 20 94281ba012c8
child 23 66c21518904c
equal deleted inserted replaced
21:298db85d9c1d 22:7690e12fafda
    11 
    11 
    12 MAIN: {
    12 MAIN: {
    13     my $q = new Quancom $ARGV[0];
    13     my $q = new Quancom $ARGV[0];
    14 
    14 
    15     my $r;
    15     my $r;
       
    16 
       
    17     $q->set(1..64 => 1); sleep 1;
       
    18     $q->set(1..64 => 0); sleep 1;
       
    19 
    16     foreach (1..64) {
    20     foreach (1..64) {
    17 	$q->set($_ => 1);
    21 	$q->set($_ => 1);
    18 	usleep 1e6/20;
    22 	usleep 1e6/20;
    19     }
    23     }
    20     foreach (1..64) {
    24     foreach (1..64) {