关于tk和fork

demil

请教各位大侠，我想用tk实现这样一个功能： 点击button stop后，button的item显示为start,同时label中的text停止滚动显示，然后点击button start，label的text会继续显示。
以下是我写的, 发现在tk中fork时，sleep 没有生效，而且感觉变量$but改变也没有生效，如果不用fork直接使用信号，那么就会阻塞，sleep 10s后，button才能改变，而不是按下去就改变,
是什么问题呢？关于进程、事件驱动这块我理解的还不深入，希望学习下。
#!/usr/bin/perl
use TK;
my $mw = MainWindow->new;
my $mess = "this is from me ^o^";
my $but = "Stop";
my ($ppid,$pid);
$SIG{'USR1'} = sub {
    sleep(10);
};
$ppid = $$;
$mw->Label(-textvariable => \$mess)->pack(-expand => "1");
$mw->after(100,\&scroll);
$mw->Button(
    -textvariable    => \$but,
    -command => sub {
      if($but eq "Start") {
        $pid = fork();
        if ( $pid ==0 ) {
           print "start->stop\n";
        } else {
          wait;
          $but = "Stop";
        }
      } else {
        $pid = fork();
        if ( $pid ==0 ) {
           system("kill -USR1 $ppid");
           print "stop->start\n";
        } else {
          wait;
          $but = "Start";
        }
      }
    }
)->pack;

sub scroll {
$mess =~ /(.)(.*)/;
$mess = "$2$1";
$mw->after(100,\&scroll);
}
$mw->MainLoop;

黑色阳光_cu

1. 
   
2. #!/bin/env perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. use TK;
   
7. 
   
8. my $mw = MainWindow->new;
   
9. my $mess = "this is from me ^o^";
   
10. my $btn_text = "Stop";
    
11. my $event_id = undef;
    
12. 
    
13. $mw->Label(-textvariable => \$mess)->pack(-expand => "1");
    
14. $mw->Button
    
15. (
    
16.         -textvariable => \$btn_text,
    
17.         -command =>
    
18.         sub
    
19.         {
    
20.                 if($btn_text eq "Start")
    
21.                 {
    
22.                         $btn_text = "Stop";
    
23.                         if (defined $event_id)
    
24.                         {
    
25.                                 $mw->afterCancel($event_id);
    
26.                                 $event_id = undef;
    
27.                         }
    
28. 
    
29.                         $event_id = $mw->repeat(100, \&scroll);
    
30.                 }
    
31.                 else
    
32.                 {
    
33.                         $btn_text = "Start";
    
34.                         if (defined $event_id)
    
35.                         {
    
36.                                 $mw->afterCancel($event_id);
    
37.                                 $event_id = undef;
    
38.                         }
    
39.                 }
    
40.         }
    
41. )->pack();
    
42. 
    
43. $event_id = $mw->repeat(100, \&scroll);
    
44. $mw->MainLoop();
    
45. 
    
46. #################################################################
    
47. 
    
48. sub scroll
    
49. {
    
50.         $mess = substr($mess, 1) . substr($mess, 0, 1);
    
51. }
    

复制代码