tk-toolkit-Perl:取消一个批处理进程，该进程使用系统调用在线程中从main运行

Question

你好，皮普斯，

我有一个Tkx gui，它使用按钮运行一个批处理文件。批处理文件在不同的线程中执行，因为我希望GUI仍然可用。我想实现一个取消按钮来取消批处理文件的执行。

我尝试发送Kill信号，但它只会终止线程，而不会终止批处理文件。以下是运行和取消子例程的代码。

哦，我不允许编辑批处理文件。

my $t1;
sub runbutton{
    $bar->g_grid();
    $bar->start();
    $t1 = threads->create(sub { 
        local $SIG{'KILL'} = sub { threads->exit };
        system("timer.bat"); 
        
        });
    
    $t1->set_thread_exit_only(1);
    my $start = time;
    my $end = time;
    while ($t1->is_running()) { 
        $end = time();
        $mytext = sprintf("%.2fn", $end - $start);
        Tkx::update(); 
   }
   
    $bar->stop();
    $bar->g_grid_forget();
    $b4->g_grid_forget();
}
sub cancelbutton
{
    $t1->kill('KILL')->detach();
}

Answer 1

您在windows上运行这个，因为您说的是"批处理"？

我相信您必须使用操作系统特定的工具来"识别"one_answers"终止"进程，例如pslist/pskill(sysinternals(

Answer 2

我怀疑Perl线程正在等待系统在执行"激发"终止信号之前返回。

我建议使用Win32:：Process将批处理文件作为一个单独的进程启动，然后使用一个变量来表示进程应该终止。设置变量后，线程可以终止进程，然后退出。

下面是我使用Win:：Process来检查的一个小测试用例，它使用Active State Perl 5.16.1:作为一个单独的进程来创建和终止批处理文件

use strict;
# Modules needed for items
use Win32::Process;
use Win32;
# Subroutine to format the last error message which occurred
sub ErrorReport
{
    print Win32::FormatMessage( Win32::GetLastError() );
}
print "Starting Processn";
# Declare a scalar for the process object
my $ProcessObj;
# Create the process to run the batch file
Win32::Process::Create($ProcessObj,
    "C:\Users\Glenn\temp.bat",
    "C:\Users\Glenn\temp.bat",0,
    NORMAL_PROIRITY_CLASS,
    ".") || ErrorReport();
print "Process Startedn";
# Sleep for a few seconds to let items start running
sleep(2);
# Kill the process with a -9
# $ProcessObj->Kill(0) does not seem to work to stop the 
# process.  Kill will kill the process with the process id 
kill -9,$ProcessObj->GetProcessID();
# Done with efforts
print "Completen";

如果您使用的是Windows 7，则需要以管理员身份运行才能创建进程，否则在尝试创建进程时会收到"拒绝访问"消息。