求教：線程問題

騾子先生

最近學(xué)習(xí)線程，編寫測試程序manage.pl，利用線程訪問srv.list中的服務(wù)器，取得uname -a 的值，但是提示
Thread 1 terminated abnormally: Not a CODE reference at manage.pl line 17.

另外如果列表中某臺服務(wù)器不能訪問，程序會中斷
并提示
Permission denied at manage.pl line 35
Perl exited with active threads:
        0 running and unjoined
        6 finished and unjoined
        0 running and detached

1. #!/usr/bin/perl
   
2. use strict;
   
3. use Net::SSH::Perl;
   
4. use threads;
   
5. use Thread::Queue;
   
6. 
   
7. my $queue = new Thread::Queue;
   
8. my $max = 10;
   
9. 
   
10. open my $IN, '<', 'srv.list' or die "Don't open File!\n";
    
11. while (<$IN>)
    
12. {
    
13.    $queue->enqueue($_);
    
14. }
    
15. close $IN;
    
16. 
    
17. for ( my $n = 0; $n < $max; $n++)
    
18. {
    
19.     threads->create(\&exec_command());
    
20. }
    
21. 
    
22. foreach my $th (threads->list(threads::all))
    
23. {
    
24.         $th->detach();
    
25. }
    
26. 
    
27. sub exec_command()
    
28. {
    
29.    my $host = $queue->dequeue();
    
30.    my $user = 'zoomi';
    
31.    my $pass = 'zoomi-init';
    
32.    my $cmd='uname -a';
    
33. 
    
34.    my $ssh = Net::SSH::Perl->new($host);
    
35.    $ssh->login($user, $pass);
    
36.    my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
    
37. 
    
38.    if ($exit == 0) {
    
39.       print "$host -> $stdout";
    
40.    } else {
    
41.       print "$host -> $stderr";
    
42.    }
    
43. }

復(fù)制代碼

1. 10.60.30.15
   
2. -> Linux zoomi-30-15 2.6.31-14-generic #48-Ubuntu SMP Fri Oct 16 14:05:01 UTC 2009 x86_64 GNU/Linux
   
3. Thread 1 terminated abnormally: Not a CODE reference at manage.pl line 17.
   
4. 10.60.30.16
   
5. -> Linux zoomi-30-16 2.6.31-23-server #74-Ubuntu SMP Mon Feb 28 22:32:34 UTC 2011 x86_64 GNU/Linux
   
6. Thread 2 terminated abnormally: Not a CODE reference at manage.pl line 17.
   
7. 10.60.30.17
   
8. -> Linux zoomi-30-17 2.6.31-14-generic #48-Ubuntu SMP Fri Oct 16 14:05:01 UTC 2009 x86_64 GNU/Linux
   
9. Thread 3 terminated abnormally: Not a CODE reference at manage.pl line 17.
   
10. 10.60.30.18
    
11. -> Linux zoomi-30-18 2.6.31-14-server #48-Ubuntu SMP Fri Oct 16 15:07:34 UTC 2009 x86_64 GNU/Linux
    
12. Thread 4 terminated abnormally: Not a CODE reference at manage.pl line 17.
    
13. 10.60.30.19
    
14. -> Linux ubuntu 2.6.31-14-server #48-Ubuntu SMP Fri Oct 16 15:07:34 UTC 2009 x86_64 GNU/Linux
    
15. Thread 5 terminated abnormally: Not a CODE reference at manage.pl line 17.
    
16. 10.60.30.25
    
17. -> Linux zoomi-30-25 2.6.31-14-server #48-Ubuntu SMP Fri Oct 16 15:07:34 UTC 2009 x86_64 GNU/Linux
    
18. Thread 6 terminated abnormally: Not a CODE reference at manage.pl line 17.
    
19. 10.60.30.27
    
20. -> Linux server-A-test 2.6.31-14-server #48-Ubuntu SMP Fri Oct 16 15:07:34 UTC 2009 x86_64 GNU/Linux
    
21. Thread 7 terminated abnormally: Not a CODE reference at manage.pl line 17.
    
22. 10.60.30.28
    
23. -> Linux zoomi-30-28 2.6.31-14-generic #48-Ubuntu SMP Fri Oct 16 14:05:01 UTC 2009 x86_64 GNU/Linux
    
24. Thread 8 terminated abnormally: Not a CODE reference at manage.pl line 17.
    
25. 10.60.30.29
    
26. -> Linux server-B-test 2.6.31-14-server #48-Ubuntu SMP Fri Oct 16 15:07:34 UTC 2009 x86_64 GNU/Linux
    
27. Thread 9 terminated abnormally: Not a CODE reference at manage.pl line 17.

復(fù)制代碼

albertd

1. sub exec_command()
   
2. {
   
3.    my $user = 'xxxxx';
   
4.    my $pass = 'xxxxx';
   
5.    my $cmd='uname -a';
   
6. 
   
7.    while (my $host = $queue->dequeue())
   
8.        {
   
9.            eval {my $ssh = Net::SSH::Perl->new($host);
   
10.                $ssh->login($user, $pass);
    
11.                my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
    
12. 
    
13.                if ($exit == 0) {
    
14.                print "$host -> $stdout";
    
15.                } else {
    
16.                print "$host -> $stderr";
    
17.                }
    
18.            };
    
19.         warn $@ if $@;
    
20.    }
    
21. }
    

復(fù)制代碼

Should fix the issues.

騾子先生

Should fix the issues.
albertd 發(fā)表于 2011-04-15 02:29

那個報錯產(chǎn)生的原因是什么？還有我的程序運行后，不能正常退出 。

ykredrum

1. 
   
2. for ( my $n = 0; $n < $max; $n++)
   
3. 
   
4. {
   
5. 
   
6.     threads->create(\&exec_command());
   
7. 
   
8. }
   

復(fù)制代碼

\&exec_command()
似乎多了對括號吧

應(yīng)該是 \&exec_command

ykredrum

對了
最好用個
Thread::Semaphore模塊
控制一下線程，確保線程都完成了任務(wù)，主線程才退出
不然閃一下就沒有了
模塊里有具體例子

kingwmj

我現(xiàn)在也在學(xué)線程啊。