在Perl中禁止Windows cmd作为系统命令

Question

我在Perl中使用系统命令来执行Java。 我形成了一个数组@args，它具有执行jar文件的不同选项。 如下所示：

$args[0] = $rootpath."/jre/bin/java";
$args[1] = " -jar \"".$rootpath."/temp/abc.jar\"";
$args[2] = " INP=\"".$inputfilename."\"";
$args[3] = " OUT=\"".$outputfilename."\"";
system(@args);

这在执行时提供了一个弹出窗口，我想隐藏该窗口并希望它在后台运行。 我也希望在Linux中也禁止这种情况。 我尝试使用tild，但如下没有帮助。

my $command = @args;
$output = `$command`;

请帮助解决这个问题。

Answer 1

使用javaw代替java 。

这很可能归结为将第一行更改为

$args[0] = $rootpath."/jre/bin/javaw";

另请参见java.exe和javaw.exe之间的区别

Answer 2

我尝试使用Win32 :: SetChildShowWindow（0），它运行完美。 我已经建立了Win32模块并将Win32库链接到我的应用程序。 在添加以下代码之后，调用系统命令之前，不会显示弹出命令提示符窗口。

Win32::SetChildShowWindow(0) 
if defined &Win32::SetChildShowWindow;

您还可以在此处关注有关此问题的讨论： Perlmonks线程