Chinaunix

标题: 问一下多线程问题，新人贴，求指点 [打印本页]

作者: 522468522 时间: 2016-06-14 17:50
标题: 问一下多线程问题，新人贴，求指点
本帖最后由 522468522 于 2016-06-14 17:58 编辑

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

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

use warnings;
use strict;
use threads;
my $t1 = threads->create(\&T1); #调用线程1
#&T1();
#&T2();
print "AAAAAAAAAAAAAA\n";#先打印
sleep 10; #睡十秒
my $t2 = threads->create(\&T2);#调用线程2
$t1->join;
$t2->jion;
sub T1{
print "Running thread 1 sleep 10s......\n";
sleep 10;
print "Thread 1 done!\n";
}
sub T2{
print "Running thread 2 sleep 10s......\n";
sleep 10;
print "Thread 2 done!\n";
}

复制代码

作者: jason680 时间: 2016-06-14 17:54
本帖最后由 jason680 于 2016-06-14 17:56 编辑

回复 1# 522468522

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

两个都 sleep 10, 有并发与无并发差在那?你知道吗?你有测过?

程序是
依照写出来(的code),跑出结果
不是依照你想出来的,得到结果

作者: 522468522 时间: 2016-06-14 17:59
你说的我不太明白回复 2# jason680

作者: 104359176 时间: 2016-06-14 20:34
线程执行后，会被后台的线程管理程序控制，所以线程可以多个同时执行。而函数则是顺序执行，完成一个，才能执行下一个。

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

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

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

作者: jason680 时间: 2016-06-15 11:35
回复 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();

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)