perl和python的相互调用

perl调用python
 use File::Spec;

 *******perl代码*****perl_test.pl*********
 sub PerlCallPython
 {
     my $path_curf = File::Spec->rel2abs(__FILE__);
     print "C PATH = ",$path_curf,"\n";
     my ($vol, $dirs, $file) = File::Spec->splitpath($path_curf);
     print "C Dir = ", $dirs,"\n";
     my $count = 1;#可以是任意字符串
     chdir $dirs;#saveComment_temp.py 程序所在位置
     system("python python_t.py -n $count");
 }
 chdir $dirs;#saveComment_temp.py 程序所在位置

 PerlCallPython();
 
 
 ******python文件内需要的程序***python_t.py*******
 #coding:utf-8
 import argparse
 parser = argparse.ArgumentParser()  #建立parser
 parser.add_argument('-n')  #接受n存入
 args = parser.parse_args()  #得到所有参数
 #获得的内容： Namespace(n='1')
 #注意不是字符串 而是一个类，所以需要str()转换
 path_temp = args;
 print args;

 ========================================================================
 ========================================================================
 ========================================================================
 python 调用 perl
 python代码
     #coding:utf-8
     import subprocess
     arg1 = "10";
     arg2 = "20";
     #无参数调用方法
     #subprocess.call(["perl", "XXXXX\\XXXXXX\\perl_t.pl"]) #注意路径
     #subprocess.call接受字符串参数，所以arg1 = "10";
     #有参数调用方法
     subprocess.call(["perl", "XXXXX\\XXXXXX\\\perl_t.pl", arg1, arg2]) #注意路径

 
 perl代码
 print "call perl\n";
 sub fun0
 {
     my $fun0_t0 = $ARGV[0];
     my $fun0_t1 = $ARGV[1];
     print "\$fun0_t0: ($fun0_t0)\n";
     print "\$fun0_t1: ($fun0_t1)\n";
 }
 fun0();
 sleep(1000);
 修改上面的路径就可以只接运行程序