perl - 如何通过线程在perl中同时执行两个函数？

Question

我是 perl 中线程概念的新手，如何在 perl 中同时执行两个函数？我该如何开始这个概念？

我的脚本：

use strict;
use warnings;

&one;
&two;

sub one{
    print $_, " " for (1..10);
}
sub two{
    print $_, "\n" for (1..10);
}

my output:
1 1
2 2
3 3
4 4
5 5
...
...

如何通过线程或任何其他方式同时运行这两个功能......？

我的输出：

welcome (01:12 AM)
welcome (01:12 AM)

提前谢谢...

Answer 1

use threads;
my $t = async { one() };
two();
$t->join();

但是，如果没有一些同步，您将无法获得如此好的输出。