perl - 在不使用系统的情况下从 perl 调用 java 类

Question

我在服务器端有一个 java 代码，它在客户端调用 perl，perl 调用一个 java 类来验证客户端。在服务器端，我期望在客户端 java 类中构造字符串类型的输出消息。在我的 perl 中调用 java 类我打电话如下

 my $command = $java . ' -classpath ' . $classpath . ' ' . $secOptions . ' ' . $className . ' ' . $serviceUrl . ' ' . $composites;
print `$command`;

perl 可以在没有系统命令的情况下调用 java 吗？问题是一些消息正在打印，这些消息打印在 java 类中我想分配 java 类的输出并解析它并发送回我的服务器端

Answer 1

很难从您的问题中确切地说出您想要做什么，但这可能会奏效

open(my $program, "$command|") or die "$command $!";  #open program on a pipe
my @results=();
while(<$program>) {
  push @results,$_;  # store output
}

其他选项见 perldoc perlipc http://perldoc.perl.org/perlipc.html