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

Question

这可能吗？

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

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

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

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