哦。是的。谢谢。 ----- Original Message ----- From: "kevin_li" <[email protected]> To: "PerlChina Mongers 讨论组" <[email protected]> Sent: Thursday, August 20, 2009 3:11 PM Subject: [PerlChina] Re: 父子进程间变量共享
刚才试了一下 你少补充了 use threads; use Thread qw(:DEFAULT ); use threads::shared; On 8月19日, 下午5时24分, linhy <[email protected]> wrote: > 在declare变量时加了:shared后，。 > ========================= > my %hash1:shared; > my %hash2:shared; > ========================= > 好像就好了。谢谢各位了。 > > [li...@genome2 BatchPrimer3.extension]$ perl multithread.pl > Start Thread for 1 > Start Thread for 2 > Start Thread for 3 > Start Thread for 4 > Start Thread for 5 > Start Thread for 6 > Start Thread for 7 > Start Thread for 8 > ===hash 1==== > hash1: 6 a6 > hash1: 3 a3 > hash1: 7 a7 > hash1: 2 a2 > hash1: 8 a8 > hash1: 1 a1 > hash1: 4 a4 > hash1: 5 a5 > ===hash 2==== > hash1: 6 b6 > hash1: 3 b3 > hash1: 7 b7 > hash1: 2 b2 > hash1: 8 b8 > hash1: 1 b1 > hash1: 4 b4 > hash1: 5 b5 > > On 8月19日, 下午4时24分, "Haiyan Lin" <[email protected]> wrote: > > > > > 之前一直没有用过DB_File,不太熟。用多线程的策略写了一段代码。所有线程结束后，打印%hash,仍然为空。请帮我看看，问题出在那？ > > ========================================================================= > > [li...@genome2 BatchPrimer3.extension]$ less multithread.pl > > #! /usr/bin/perl > > use warnings; > > use strict; > > use Thread qw(:DEFAULT ); > > > my @task = (1..8) ; #8个任务 > > > my (%hash1 , %hash2); > > my @threadArray ; > > > foreach my $thread (@task){ > > sleep 1; > > > # 同时最多有3个线程 > > if (@threadArray >= 3){ > > my $oldestThread = shift @threadArray ; > > $oldestThread->join() ; > > } > > > #新线程由此开始 > > my $newThread = Thread->new(\&start_thread, $thread); > > push (@threadArray, $newThread); > > > } > > > #等待所有线程结束 > > while (my $livethread = shift @threadArray){ > > $livethread->join(); > > > } > > > #打印hash > > print "===hash 1====\n"; > > while (my ($key, $value) = each %hash1){ > > print "hash1: $key\t$value\n";} > > > print "===hash 2====\n"; > > while (my ($key, $value) = each %hash2){ > > print "hash1: $key\t$value\n"; > > > } > > > exit; > > > sub start_thread{ > > > my ( $thread) = @_ ; > > print "Start Thread for $thread\n"; > > $hash1{$thread} = 'a'.$thread ; > > $hash2{$thread} = 'b'.$thread ; > > sleep 5 ; > > return;} > > > ======================================================================= > > > 运行显示： > > > [li...@genome2 BatchPrimer3.extension]$ perl multithread.pl > > Start Thread for 1 > > Start Thread for 2 > > Start Thread for 3 > > Start Thread for 4 > > Start Thread for 5 > > Start Thread for 6 > > Start Thread for 7 > > Start Thread for 8 > > ===hash 1==== > > ===hash 2==== > > [li...@genome2 BatchPrimer3.extension]$ less multithread.pl > > > ----- Original Message ----- > > From: "Yonghua (Jeff)" <[email protected]> > > To: <[email protected]> > > Sent: Wednesday, August 19, 2009 2:26 PM > > Subject: [PerlChina] Re: 父子进程间变量共享 > > > > 2009/8/19 liseen <[email protected]>: > > >> fork 之后各个进程的内存并不是共享的， 怎么能用这个方法呢， 呵呵。 > > > >> 2009/8/19 Haiyan Lin <[email protected]> > > > >>> 能不能具体一点，在楼顶的代码中加点示例代码。谢谢。 > > > > 其实看看模块的文档很容易搞的。 > > > 简单写个测试脚本仅供参考： > > > > use strict; > > > use warnings; > > > use DB_File; > > > > if ( fork ) { # in parent > > > for (1..30) { > > > increase(); > > > sleep 1; > > > } > > > > } else { # in child > > > for (1..30) { > > > sleep 1; > > > my %hash; > > > tie %hash, "DB_File", "a.db", O_RDONLY, 0444, $DB_HASH > > > or die "tie dbfile failed: $!\n"; > > > print $hash{'test'},"\n"; > > > untie %hash; > > > } > > > } > > > > sub increase { > > > my %hash; > > > > tie %hash, "DB_File", "a.db", O_RDWR|O_CREAT, 0666, $DB_HASH > > > or die "tie dbfile failed: $!\n"; > > > > $hash{'test'} ++; > > > untie %hash; > > > }- 隐藏被引用文字 - > > > - 显示引用的文字 -- 隐藏被引用文字 - > > - 显示引用的文字 - --~--~---------~--~----~------------~-------~--~----~ 您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。 要在此论坛发帖，请发电子邮件到 [email protected] 要退订此论坛，请发邮件至 [email protected] 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛 -~----------~----~----~----~------~----~------~--~---
