問一下多線程問題， 新人貼， 求指點

522468522

如上圖， 用線程與函數(shù)有什么差別？我怎么感覺是一樣的。。。。
程序從上往下執(zhí)行， 這個線程的并發(fā)要怎么理解？
像上面的代碼， 我覺得是從上往下運行啊， 那并發(fā)性不是沒有了嗎？不是像調(diào)用函數(shù)一樣了嗎


有人說， 線程1與線程2調(diào)用順序并不一樣， 可能2比線程1優(yōu)先運行。
但我把代碼改成如下， 發(fā)現(xiàn)會阻塞10S， 那進一步說明這個程序中的線程與函數(shù)調(diào)用是一個樣�。�！

1. use warnings;
   
2. use strict;
   
3. use threads;
   
4. 
   
5. my $t1 = threads->create(\&T1); #調(diào)用線程1
   
6. 
   
7. 
   
8. #&T1();
   
9. #&T2();
   
10. print "AAAAAAAAAAAAAA\n";#先打印
    
11. sleep 10;        #睡十秒
    
12. 
    
13. my $t2 = threads->create(\&T2);#調(diào)用線程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. }

復(fù)制代碼

jason680

回復(fù) 1# 522468522

>> ...那并發(fā)性不是沒有了嗎？

兩個都 sleep 10, 有并發(fā)與無并發(fā)差在那?你知道嗎?你有測過?
   
程序是
依照寫出來(的code),跑出結(jié)果
不是依照你想出來的,得到結(jié)果

522468522

你說的我不太明白回復(fù) 2# jason680


   

104359176

線程執(zhí)行后，會被后臺的線程管理程序控制，所以線程可以多個同時執(zhí)行。而函數(shù)則是順序執(zhí)行，完成一個，才能執(zhí)行下一個。

如果下面的程序不必等到上面的程序執(zhí)行完畢，就可以執(zhí)行的話，就可以使用并行機制。

Perl 語言并不是并發(fā)性語言，Perl 語言并發(fā)代碼的執(zhí)行，在后臺有一個隱形的管理機制，并不透明。

真正的并發(fā)語言，并發(fā)進程的管理是透明的，也就是說代碼執(zhí)行完畢觸發(fā)的通知機制，監(jiān)控并發(fā)代碼執(zhí)行狀況的檢測機制，無法完成任務(wù)后的確認(rèn)機制，都是透明的。這時候設(shè)計程序，就好像一個項目管理者，如何分發(fā)任務(wù)保證項目均衡前進，同時關(guān)注多個子項目的進度，并及時處理項目中出現(xiàn)的意外，都是需要相應(yīng)的能力支持，反映在編程中，也要有相應(yīng)的語言功能和數(shù)據(jù)結(jié)構(gòu)管理這些信息。

jason680

回復(fù) 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); #調(diào)用線程1
< my $t2 = threads->create(\&T2); #調(diào)用線程2
<
< $t1->join;
< $t2->join;
---
> &T1();
> &T2();