Question

我打算使用下面的脚本自动调用JMP应用程序，但是当我运行它时，它直接打印hello word，脚本初始化并完成，但它不执行JMP应用程序。它跳过它，没有保存结果。为什么呢？

#! C:\Dwimperl\perl\bin
#!/usr/bin/perl   -w
use strict;
use Win32::OLE;

print "hello word";

use Win32::OLE;
print "Script Initializing", "\n";

my $jmp = Win32::OLE->new('JMP.Application');

$jmp->{Visible} = 1;

$jmp->RunJSLFile("Z:\\trybar.jsl");

print "Done\n";

$jmp->Quit();

Answer 1

您的问题并不清楚，您的问题有几个可能的原因。但这些要点可能有所帮助

一个shebang系列在Windows上没用，所以最好将其删除
在shebang线上始终use warnings而不是-w

您自己的代码的这种变化可以正常工作，但请记住，如果trybar.jsl

的内容出现问题，您将收到错误

use strict;
use warnings;

use Win32::OLE;

print "Script initialising\n";

my $jmp = Win32::OLE->new('JMP.Application');

$jmp->{Visible} = 1;
$jmp->RunJSLFile('Z:\trybar.jsl');

print "Done\n";

$jmp->Quit;

问题执行JMP应用程序

1 个答案: