求助关于perl的多线程信号的问题?????

天下第一菜

http://search.cpan.org/~jdhedden ... m#THREAD_SIGNALLING
上面链接是cpan的线程信号的例子，我就没试出来，大家帮忙看看有啥问题吗

1. #!/usr/bin/perl
   
2. use threads;
   
3. sub thr_func
   
4. {
   
5.         # Thread 'cancellation' signal handler
   
6.         $SIG{'KILL'} = sub { threads->exit(); };
   
7.         sleep(10);
   
8. }
   
9. 
   
10. # Create a thread
    
11. my $thr = threads->create('thr_func');
    
12. # Signal the thread to terminate, and then detach
    
13. # it so that it will get cleaned up automatically
    
14. sleep(1);
    
15. $thr->kill('KILL')->join();
    
16. print "END\n";

复制代码

---------------------------------------------------------------------------------------------
给线程发了个信号让线程执行 threads->exit();退出，但是还是执行了10秒才结束

contpub

在这个例子里，kill并不能中断sleep，还是要等10秒之后才退出。所以原文中用的是detach，而不是join。

另外，你的程序里sleep之后没有其它操作，所以看不出区别。你可以尝试在sleep（第7行）之后加一个print。

墨迹哥

1. #!/usr/bin/perl
   
2. use threads;
   
3. use Thread::Semaphore;
   
4. my $min = Thread::Semaphore->new(1);
   
5. my $max = Thread::Semaphore->new(100);
   
6. printf("s = " . ${$s}."\n");         # s = 5
   
7. while(${$min}<= ${$max}){
   
8.     print "${$min}\n";
   
9.     $min->up(1);
   
10. }
    
11. #$s->down(3);
    
12. 
    
13. # printf("s = " . ${$s} . "\n");         # s = 2
    
14. # $s->up(1);
    
15. # printf("s = " . ${$s} . "\n");         # s = 6
    

复制代码

天下第一菜

回复 2# contpub
多谢啊，是sleep的问题，kill不会影响sleep，改成死循环就可以看到效果了