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

这可能吗？

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

我尝试只执行 Win32::MsgBox("Test") 但这不起作用。 有可能吗？

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

您可以使用纯文本替换，如下所示：

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 下工作。