问一下多线程问题， 新人贴， 求指点

522468522

如上图， 用线程与函数有什么差别？我怎么感觉是一样的。。。。
程序从上往下执行， 这个线程的并发要怎么理解？
像上面的代码， 我觉得是从上往下运行啊， 那并发性不是没有了吗？不是像调用函数一样了吗


有人说， 线程1与线程2调用顺序并不一样， 可能2比线程1优先运行。
但我把代码改成如下， 发现会阻塞10S， 那进一步说明这个程序中的线程与函数调用是一个样啊？！

1. use warnings;
   
2. use strict;
   
3. use threads;
   
4. 
   
5. my $t1 = threads->create(\&T1); #调用线程1
   
6. 
   
7. 
   
8. #&T1();
   
9. #&T2();
   
10. print "AAAAAAAAAAAAAA\n";#先打印
    
11. sleep 10;        #睡十秒
    
12. 
    
13. my $t2 = threads->create(\&T2);#调用线程2
    
14. 
    
15. $t1->join;
    
16. $t2->jion;
    
17. 
    
18. 
    
19. 
    
20. 
    
21. 
    
22. 
    
23. 
    
24. sub T1{
    
25.         print "Running thread 1 sleep 10s......\n";
    
26.         sleep 10;
    
27.         print "Thread 1 done!\n";
    
28. }
    
29. 
    
30. sub T2{
    
31.         print "Running thread 2 sleep 10s......\n";
    
32.         sleep 10;
    
33.         print "Thread 2 done!\n";
    
34. }

复制代码

jason680

回复 1# 522468522

>> ...那并发性不是没有了吗？

两个都 sleep 10, 有并发与无并发差在那?你知道吗?你有测过?
   
程序是
依照写出来(的code),跑出结果
不是依照你想出来的,得到结果

522468522

你说的我不太明白回复 2# jason680


   

104359176

线程执行后，会被后台的线程管理程序控制，所以线程可以多个同时执行。而函数则是顺序执行，完成一个，才能执行下一个。

如果下面的程序不必等到上面的程序执行完毕，就可以执行的话，就可以使用并行机制。

Perl 语言并不是并发性语言，Perl 语言并发代码的执行，在后台有一个隐形的管理机制，并不透明。

真正的并发语言，并发进程的管理是透明的，也就是说代码执行完毕触发的通知机制，监控并发代码执行状况的检测机制，无法完成任务后的确认机制，都是透明的。这时候设计程序，就好像一个项目管理者，如何分发任务保证项目均衡前进，同时关注多个子项目的进度，并及时处理项目中出现的意外，都是需要相应的能力支持，反映在编程中，也要有相应的语言功能和数据结构管理这些信息。

jason680

回复 3# 522468522

$ time perl test_threads.pl
Running thread 1 sleep 10s......
Running thread 2 sleep 10s......
Thread 1 done!
Thread 2 done!

real        0m10.147s
user        0m0.004s
sys        0m0.088s

$ time perl test_function.pl
Running thread 1 sleep 10s......
Thread 1 done!
Running thread 2 sleep 10s......
Thread 2 done!

real        0m20.124s
user        0m0.004s
sys        0m0.064s



$ diff test_threads.pl test_function.pl
5,9c5,6
< my $t1 = threads->create(\&T1); #调用线程1
< my $t2 = threads->create(\&T2); #调用线程2
<
< $t1->join;
< $t2->join;
---
> &T1();
> &T2();