请教关于perl Thread 多线程

请教关于perl Thread 多线程

今天看了Thread文档,没看明白,可以下面这样用吗?

#load

use   threads;

$thr1= threads->new(\&require1);
$thr2= threads->new(\&require2);
$thr3= threads->new(\&require3);
$thr4= threads->new(\&require4);

sub require1(){
require("include/t_ad_keyword.pl");
}

sub require2(){
require("include/t_media_info.pl");
require("include/t_qeesoo_visitdata.pl");
}

sub require3(){
require("include/t_showdata.pl");
}

sub require4(){
require("include/t_province_ip.pl");
require("include/t_visit_ad_price_detail.pl");
}

$thr1->join;
$thr2->join;
$thr3->join;
$thr4->join;


print "你好,我来啦!";





print "你好,我来啦!"; #这段代码什么时候执行?在$thr1 $thr2 $thr3 $thr4执行完以后还是同步?

(刚测试了一下,是同步的哟)


请问如何判断那个进程已经成功执行完成?

如何控制"print "你好,我来啦!";"在某个线程之后或最后执行?

是不是我问得太白痴咯?
没看到

[Copy to clipboard] [ - ]
CODE:
print "你好,我来啦!"

这句在哪啊


QUOTE:
原帖由 DQP 于 2009-1-9 18:14 发表
没看到 print "你好,我来啦!"这句在哪啊

记得好像在最后,楼主修改时改没了


QUOTE:
print "你好,我来啦!"; #这段代码什么时候执行?

不是在最后执行吗?


QUOTE:
原帖由 DQP 于 2009-1-9 18:14 发表
没看到 print "你好,我来啦!"这句在哪啊



本来有的,后来改的时候改没了


QUOTE:
原帖由 ynchnluiti 于 2009-1-9 18:22 发表

记得好像在最后,楼主修改时改没了

是的,代码在最后。



QUOTE:
原帖由 ynchnluiti 于 2009-1-9 18:25 发表

不是在最后执行吗?

执行不是在最后,是同步执行,起码不是前面线程完成后执行。


QUOTE:
原帖由 枫影谁用了 于 2009-1-12 09:19 发表



执行不是在最后,是同步执行,起码不是前面线程完成后执行。

在 Thread 的文档中查查 join 的意思。


QUOTE:
原帖由 枫影谁用了 于 2009-1-12 09:19 发表



执行不是在最后,是同步执行,起码不是前面线程完成后执行。

???
迷惑了。。
应该是在最后啊 都join了啊。 你是不是在require近来的那些文件中起了新的进程或线程