changeset 22 | 7690e12fafda |
parent 20 | 94281ba012c8 |
child 23 | 66c21518904c |
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) { |