控制并发数量

Posted 2020-10-04 FireC@t @ Perl6

my @promises;
for 0..13 {
    push @promises, start {say $_;sleep 1;}
    if @promises == 4 {
      await Promise.allof(@promises);
      @promises = [];
    }
}
await @promises;

每 4 个线程， 就先等待返回线程返回。