Inline-Java是从Perl调用java的通用库,而这个
post propose a org.perl.java模块应该允许从Java调用Perl.
但是,由于不同的JNI实现的不可预测性
JVM很难说什么JVM和Perl的组合将会起作用.通常,需要的是Perl与MULTIPLICITY,以及编译的线程.这意味着他使用一个定制的Perl.
否则,Inline::Java::Callback允许您从Java调用Perl函数.为此,您需要创建一个org.perl.inline.java.InlinePerlCaller对象.以下是典型用途的示例:
use Inline Java => <
import java.util.* ;
import org.perl.inline.java.* ;
class Pod_regexp extends InlineJavaPerlCaller {
public Pod_regexp() throws InlineJavaException {
}
public boolean match(String target, String pattern)
throws InlineJavaException {
try {
String m = (String)CallPerlSub("main::regexp",
new Object [] {target, pattern}) ;
if (m.equals("1")){
return true ;
}
}
catch (InlineJavaPerlException pe){
// $@ is in pe.GetObject()
}
return false ;
}
}
END
my $re = new Pod_regexp() ;
my $match = $re->match("Inline::Java", "^Inline") ;
print($match . "n") ; # prints 1
sub regexp {
my $target = shift ;
my $pattern = shift ;
return ($target =~ /$pattern/) ;
}