当前位置：文江博客话题详情

是否可以处理退出代码> 255 与 perl？

发布于 2024-11-25 13:37:28 字数 747 浏览 0 评论 0原文

首先，了解有关退出代码的一些背景在 Perl 中 (也在这里）和在 Windows 上。

现在 - 当我从 perl 脚本执行另一个进程时（我对方法持开放态度，qx/open/system/exec/IPC::Run 等）在 Windows 上：

是否可以捕获外部退出代码0的范围- 255？

在 Windows 上，进程可以返回完整（带符号）的 32 位退出代码，并且返回 0x8...0...< /code>，即一些 COM 错误代码或类似的代码。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

如梦 2024-12-02 13:37:28

是的，Win32::Process 可以返回完整签名的 32 位退出代码。使用 GetExitCode 方法。但这有点棘手，因为返回值不是退出代码（它是 Windows GetExitCodeProcess 函数，表示该函数成功或失败）。退出代码存储在您传递给该方法的变量中。

use Win32::Process;
use Win32;

sub ErrorReport{
    print Win32::FormatMessage( Win32::GetLastError() );
}

my $ProcessObj;
Win32::Process::Create($ProcessObj,
                       "C:\\winnt\\system32\\notepad.exe",
                       "notepad temp.txt",
                       0,
                       NORMAL_PRIORITY_CLASS,
                       ".") or die ErrorReport();

$ProcessObj->Wait(INFINITE);
my $exitCode;
$ProcessObj->GetExitCode($exitCode) or die ErrorReport();

Yes, Win32::Process can return the full signed 32-bit exit code. Use the GetExitCode method. But it's a little tricky, because the return value is not the exit code (it's the return value of the Windows GetExitCodeProcess function, which indicates success or failure of the function). The exit code gets stored into the variable you pass to the method.

use Win32::Process;
use Win32;

sub ErrorReport{
    print Win32::FormatMessage( Win32::GetLastError() );
}

my $ProcessObj;
Win32::Process::Create($ProcessObj,
                       "C:\\winnt\\system32\\notepad.exe",
                       "notepad temp.txt",
                       0,
                       NORMAL_PRIORITY_CLASS,
                       ".") or die ErrorReport();

$ProcessObj->Wait(INFINITE);
my $exitCode;
$ProcessObj->GetExitCode($exitCode) or die ErrorReport();

回复收藏 0 原文