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

Question

这可能吗？

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

我尝试过做Win32 :: MsgBox（“测试”）但是没有用。 它甚至可能吗？

我正在远程执行脚本从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下工作。