请教关于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 "你好，我来啦！";"在某个线程之后或最后执行？

[ 本帖最后由 枫影谁用了 于 2009-1-10 09:20 编辑 ]

枫影谁用了

是不是我问得太白痴咯？

DQP

没看到

1. print "你好，我来啦！"

复制代码

这句在哪啊

ynchnluiti

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

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

ynchnluiti

print "你好，我来啦！"; #这段代码什么时候执行？

不是在最后执行吗？

枫影谁用了

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

本来有的，后来改的时候改没了:em11: :em11: :em11:

枫影谁用了

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

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

是的，代码在最后。

[ 本帖最后由 枫影谁用了 于 2009-1-12 09:19 编辑 ]

枫影谁用了

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

不是在最后执行吗？

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

MMMIX

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



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

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

DQP

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



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

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