multithreading - perl-定期在屏幕上打印，而不需要sleep()

Question

我一直在用perl编码，并且正在做一些计算，这对于for循环来说要花一些时间...循环的大小由用户指定。

因此，我想每隔十秒钟左右在屏幕上打印一些信息，而不使用 sleep 功能，因为发生了其他事情，我不想浪费时间在 sleep 功能上。

有任何想法吗？

Answer 1

use threads;

async {
  my $i = 0;
  LOOP: {
    print $i++, "\n";
    sleep 10;
    redo LOOP;
  }
};

# rest of program..