如何通过线程在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();

但是如果没有一些同步，你就不会得到那么好的输出。