Perl多线程中使用共享句柄的问题

nsnake_cu

应用场景如下：
服务器启动一个端口监听8000端口等待用户连接，当用户连接后用在线程中向客户机发送信息，因为是群播，所以就是在线程中遍历所有的连接句柄然后发送信息，所有的句柄信息都保存在%CLIENTS这个变量中，而%CLIENTS在线程中无法共享，所以也就没有客户的连接句柄可以使用，意味着说线程也就没法向客户端发送信息，使用threads::shared也无法共享%CLIENTS

目前客户连接和线程的过程如下

1. #!/usr/bin/perl -w
   
2. use EV;
   
3. use AnyEvent;
   
4. use AnyEvent::Handle;
   
5. use AnyEvent::Socket;
   
6. use threads;
   
7. use threads::shared;
   
8. use Thread::Queue;
   
9. 
   
10. my $blockQueue = Thread::Queue->new();
    
11. my $thr = threads->create(sub {
    
12.     while (my $block = $blockQueue->dequeue()) {
    
13.            $log->debug(Dumper(%CLIENTS));
    
14.     }
    
15.                           }                          
    
16.     )->detach();
    
17. 
    
18.    
    
19. 
    
20. tcp_server undef, 8000 , \&new_client;
    
21. EV::loop;
    
22. 
    
23. #Handles new connections
    
24. sub new_client {
    
25.     my ( $fh, $host, $port ) = @_;
    
26.     my $handle = new AnyEvent::Handle(
    
27.         fh       => $fh,
    
28. 
    
29.     );
    
30.     $handle->on_read( \&client_input );
    
31.     $CLIENTS{$handle} = $handle;
    
32. 
    
33. }
    
34. 
    
35. sub client_input {
    
36.     return 1;
    
37. }

复制代码

如何共享%CLIENTS的变量信息

lambda_calculus

my %CLIENTS :shared = ...

nsnake_cu

回复 2# lambda_calculus


呵呵。我在上面也已经说过这种方法不行，过去的不是对象，而变成了普通标量了

斯文牛氓

anyevent传递变量的问题.........