利用 perl 调用 Java 类，通过读取文件 获取调用类返回值

perl 源码：

#!/usr/bin/perl -w

$SIG{TERM}=$SIG{INT}=\&yoursub1;


eval{
$args = "127.0.0.1:10000:mario:mario:kongjunlong280:XCSJ34@";


$javaClassName = "TestInputOutput";

@result = ("java", "$javaClassName", "$args");

my $re = system(@result);

print "------------------------".$re."\n";

#整体读入，逐行处理
my $resultStr = "";
open(FILE,"<","myemailfile.txt")||die"cannot open the file: $!\n";
@linelist=<FILE>;
foreach $eachline(@linelist){
   $resultStr = $resultStr.$eachline;
}

print "========================\n";
print $resultStr;
close FILE
};


if($@)
{
   print "》》》》》》》》》》》》》》\n".$@;

}

Java源码：

import java.io.File;
import java.io.FileOutputStream;
import java.io.IOException;


public class TestInputOutput {



public static String Testinput(String str){

String newStr  = str + "this is a Testinput method! \n";

return newStr;
}

public static void main(String[] args) {

System.out.print("java get data:"+args[0]+"\n");
 
String str = "you can do anything in java class! \n";

String str1 = "over do in java class! \n";

String sss = Testinput(str+str1);

System.out.print(sss);

writeFile(sss);
}
 
 
    public static void writeFile(String content){
        FileOutputStream out = null;
        File file;
       try {
           String rootFile = ".";
           file = new File(rootFile);
           if (!file.exists()) {
                   file.mkdirs();
           }
           File fileDat = new File(rootFile + "\\myemailfile.txt");


           out = new FileOutputStream(fileDat);
           byte[] contentInBytes = content.getBytes();
           out.write(contentInBytes);
           out.flush();
           out.close();
       } catch (IOException e) {
           e.printStackTrace();
       } finally {
           try {
               if (out != null) {
                       out.close();
               }
           } catch (IOException e) {
               e.printStackTrace();
           }
       }
    }
}