远程运行 Perl 脚本时使用 MsgBox 回显变量？答案

【问题标题】：Use a MsgBox to echo a variable while running the Perl Script Remotely?远程运行 Perl 脚本时使用 MsgBox 回显变量？
【发布时间】：2012-10-25 15:21:34
【问题描述】：

这可能吗？

使用 VB.net 我正在执行一个远程 perl 脚本。我想要一个 MsgBox 出现在我的屏幕上，类似于 VBScript。

我试着只做 Win32::MsgBox("Test") 但这没有用。有没有可能？

我正在从 Windows 系统远程执行脚本到 Unix 系统。

【问题讨论】：

"that didn't work" 不是 Perl 或 Windows 生成的诊断消息。它以什么方式不起作用？有错误信息吗？退出代码？
没有错误信息，没有退出代码。在我的 Windows 系统上，没有打开一个 msgbox。我现在假设我正在进一步研究它是因为我在 unix 系统上执行 perl 脚本，它无法访问 Win32 函数。不过我需要找到一个替代方案。

标签： perl

【解决方案1】：

您可以像这样使用纯文本替换：

sub AskYesNo {
    my ($question, $default) = @_;
    print $question, $default ? " [Y/n] " : " [y/N] ";
    my $answer = lc(ReadLine 0);
    chomp $answer;
    return 1 if $answer eq "y";
    return 0 if $answer eq "n";
    return $default;
}

如果用户只按 Enter，它将选择默认答案“y”或“n”。它可能不漂亮，但可以完成工作并在任何 Perl 下工作。

【讨论】：