perl和python的相互调用

2017-10-16 20:19:29来源:CSDN作者:sunyan3517人点击

分享

从实用角度出发,并未付诸于解释(有时间后期补充)。程序内容直接复制到文件,即可使用。

注意perl调用python路径在相同目录下;

python调用perl则不需要

系统环境:windows7

python版本:2.x

perl版本:This is perl 5, version 24, subversion 2 (v5.24.2) built for MSWin32-x86-multi-thread-64int

编辑器:notepad++

notepad++配置python和perl运行环境方法:

http://blog.csdn.net/sunyan3517/article/details/74857499


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);
修改上面的路径就可以只接运行程序



深入学习链接:

http://www.jb51.net/article/57208.htm

http://blog.chinaunix.net/uid-26000296-id-4461522.html


最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台