Question

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

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

perl可以在没有System命令的情况下调用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

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

1 个答案: