在不使用系统的情况下从 perl 调用 java 类 [英] calling a java class from perl without using system

问题描述

我在服务器端有一个 java 代码，它在客户端调用 perl，perl 调用一个 java 类来验证客户端.在服务器端，我希望在我的客户端 java 类中构造的字符串类型的输出消息.用于调用 java 类在我的 perl 中，我像下面这样调用

I have a java code at server side which calls perl at client side and perl calls a java class for validation client side.In server side I expect output message of string type constructed at my client side java class .For calling java class in my perl I am calling like below

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

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

Can perl call java without System command?The issue is some messages are getting printed which are printed in java class I want to assign output from java class and parse it and send back to my server side

推荐答案

很难从你的问题中确切地说出你想要做什么，但这可能会解决问题

It's difficult to tell from your question exactly what you want to do but this might do the trick

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

For other options see perldoc perlipc http://perldoc.perl.org/perlipc.html

这篇关于在不使用系统的情况下从 perl 调用 java 类的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！