[PerlChina] Re: 父子进程间变量共享

哦。是的。谢谢。
----- Original Message -----
From: "kevin_li" <xiaohuidexinge@163.com>
To: "PerlChina Mongers 讨论组" <perlchina@googlegroups.com>
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 <linhy0...@gmail.com> wrote:
> 在declare变量时加了:shared后，。
> =========================
> my %hash1:shared;
> my %hash2:shared;
> =========================
> 好像就好了。谢谢各位了。
>
> [linhy@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" <linhy0...@gmail.com> wrote:
>
>
>
> > 之前一直没有用过DB_File,不太熟。用多线程的策略写了一段代码。所有线程结束后，打印%hash,仍然为空。请帮我看看，问题出在那？
> > =========================================================================
> > [linhy@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;}
>
> > =======================================================================
>
> > 运行显示：
>
> > [linhy@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====
> > [linhy@genome2 BatchPrimer3.extension]$ less multithread.pl
>
> > ----- Original Message -----
> > From: "Yonghua (Jeff)" <yonghua.p...@gmail.com>
> > To: <perlchina@googlegroups.com>
> > Sent: Wednesday, August 19, 2009 2:26 PM
> > Subject: [PerlChina] Re: 父子进程间变量共享
>
> > > 2009/8/19 liseen <liseen....@gmail.com>:
> > >> fork 之后各个进程的内存并不是共享的， 怎么能用这个方法呢， 呵呵。
>
> > >> 2009/8/19 Haiyan Lin <linhy0...@gmail.com>
>
> > >>> 能不能具体一点，在楼顶的代码中加点示例代码。谢谢。
>
> > > 其实看看模块的文档很容易搞的。
> > > 简单写个测试脚本仅供参考：
>
> > > 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 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---