perl - 如何知道从 Win32::Job 启动的进程的状态

Question

我有以下几点来启动一个超时的进程

use Win32::Job;
my $job = Win32::Job->new;

# Run $command for $max_time
$job->spawn($Config{"C:/Windows/System32/cmd.exe"}, $command, new_group);
$job->run($max_time);
$job_stat=$job->status;
print LOG "$command status $job_stat\n";   

我读了 Win32::Job CPAN 引导并添加了最后两行，因为我想知道该过程是运行完成还是超时。这是正确的方法吗？

Answer 1

根据 the documentation , status方法返回一个带有两个键的散列:exitcode和 time .所以如果你想要退出代码，你应该像这样使用它

my $job_stat = $job->status;
print "Exit code ", $job_stat->{exitcode}, "\n";

如果您想要工作使用的时间，您可以使用任何或所有

$job_stat->{time}{user}

$job_stat->{time}{kernel}

$job_stat->{time}{elapsed}