java 调用perl的方法，最好根据我给的代码，写以个可以看懂的例子

Question

 参考Eadpred项目中EadpredAnalysisService.groovy文件的def pred和def excPerl方法
调用过程是java调用perl，perl调用muscle（或muscle.exe）
生成.final文件，生成与标准序列比对好的序列
（此步优先级最低）

Answer 1

def pred(subtype,id){ 
    eac.currentid=id
def tmpwebRootDir = JniManager.libPath
def webRootDir= Helper.safePath(tmpwebRootDir)
def tmpDataDir = "${webRootDir}tmp/${id}"
def dllDir = "${webRootDir}internTools"
def seqsaf = "seqsa"
def seqsbf = "seqsb"
/**
 * all sequences need to handle -,wrong,unknown X by alignment with standard sequences
 * for H1N1\B\H3N2 subtype
 */
def perl1 = "${dllDir}/align_win.pl"
def flaga = "${tmpDataDir}/${seqsaf}.final"
def flagb = "${tmpDataDir}/${seqsbf}.final"
def muscleWin = "muscle.exe"
def muscleLin = "muscle"
  FileService fs = new FileService()
fs.delFileFlag(flaga)
  fs.delFileFlag(flagb)
Properties prop = System.getProperties();
String os = prop.getProperty("os.name")
if(os.toUpperCase().startsWith("WIN")){
 def perla = "perl ${perl1} ${tmpDataDir} ${dllDir} ${seqsaf} ${subtype} ${muscleWin} "
 excPerl(perla,flaga)
 def perlb =  "perl ${perl1} ${tmpDataDir} ${dllDir} ${seqsbf} ${subtype} ${muscleWin}"
 excPerl(perlb,flagb) }else{
def perla = "perl ${perl1} ${tmpDataDir} ${dllDir} ${seqsaf} ${subtype} ${muscleLin} "
excPerl(perla,flaga)
def perlb =  "perl ${perl1} ${tmpDataDir} ${dllDir} ${seqsbf} ${subtype} ${muscleLin}"
excPerl(perlb,flagb)
}
 
if (subtype == "H1N1") {
def finalResult
try{
JniManager jni = new JniManager()
List<String> result = jni.displayPairDist("${dllDir}/",flaga,flagb)
//println("result"+result)
int size = result.size();
//println("Size:" + size/3)
def content = [result:result,subtype:subtype]
finalResult = getDistances(content)
fs.printDistancesFile("${tmpDataDir}/distancePred",finalResult)
}catch(IOException ex){
 throw new RuntimeException("dll is not found!",ex)
}
updateStep()
}
else if(subtype == "B" || subtype == "H3N2"){
def perl2 = "${dllDir}/eadpred_win.pl"
def perlab="perl ${perl2} ${tmpDataDir} ${dllDir} ${seqsaf} ${seqsbf} ${subtype}"
excPerl(perlab,"${tmpDataDir}/distancePred")

}
killperl()
 }
     def excPerl(sh,file){
 try{
 // get Process to execute perl, get the output and exitValue
  FileService fs = new FileService()
 sh.execute()
 fs.fileFlag(file)
 
 }catch(IOException ex){
 
throw new RuntimeException("perl utility must be installed and on path,or path set in perl.executable.Download from http://www.perl.org",ex)
 }
 updateStep()
 }
根据这个代码，去看看java是通过哪个接口去调用的perl。急求