perl - perlでスレッドごとに2つの関数を同時に実行する方法は?

Question

perl のスレッドの概念は初めてですが、perl で 2 つの関数を同時に実行するにはどうすればよいですか? どうすればこのコンセプトを開始できますか?

私のスクリプト：

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
...
...

この 2 つの関数をスレッドまたはその他の方法で同時に実行するにはどうすればよいですか?

私の出力：

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

よろしくお願いします...

Answer 1

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

ただし、同期がなければ、そのような素晴らしい出力は得られません。