Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/perl/9.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
远程运行Perl脚本时,是否使用MsgBox回显变量?_Perl - Fatal编程技术网

远程运行Perl脚本时,是否使用MsgBox回显变量?

远程运行Perl脚本时,是否使用MsgBox回显变量?,perl,Perl,这可能吗 我正在使用VB.net执行一个远程perl脚本。我希望MsgBox出现在我的屏幕上,类似于VBScript 我试着只做Win32::MsgBox(“测试”),但没有成功。 有可能吗 我正在从Windows系统到Unix系统远程执行脚本。您可以使用以下纯文本替换: sub AskYesNo { my ($question, $default) = @_; print $question, $default ? " [Y/n] " : " [y/N] "; my $

这可能吗

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

我试着只做Win32::MsgBox(“测试”),但没有成功。 有可能吗


我正在从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下完成工作。

Perl或Windows不会产生“那不起作用”的诊断消息。它以什么方式不起作用?有错误消息吗?退出代码?没有错误消息,没有退出代码。在我的windows系统上,msgbox没有打开。我假设现在我正在进一步研究它,因为我在unix系统上执行perl脚本,它没有访问Win32函数的权限。不过,我需要找到一个替代方案。