java胶水代码_分享下perl胶水实现前后台对接的方法

1. Perl“胶水”，能够将各种应用程序或者各种语言的代码结合起来。

Perl可以编写普通的脚本程序，还可以使用cgi模块编写Web应用程序，同时可以使用DBI访问各种数据库。

除此之外，Perl可以将各种层次的应用程序粘在一起，发挥更强大的功能。

2.

前台是一个网站Web应用程序，底层或者是后台是用C，C++或者Java编写，使用Perl可以将两者对接起来，实现更强大的功能，发挥各自的优势。

Perl实现该方法的途径有两个：

1) 直接在Perl脚本中嵌入别的语言编写的代码，这个可以使用Perl相关的模块，比较简单的是Inline，更能稍强但稍微复杂的是XS等。

2)另一种，是使用Perl的系统调用函数system:

如：

windows下

复制代码 代码如下:

use strict;

my $file="test.txt";

system("edit $file");

#调用dos的edit工具

system("dir");

等。

另一种写法:

qx{dir};

捕获返回的结果，可以将结果赋予标量或者一个列表数组，标量的话获取结果字符的最后一样；数组的话，每个元素对应结果的每一行。

如：

复制代码 代码如下:

use strict;

my @result=qx{dir};

my $eachline;

foreach $eachline (@result)

{

print "$eachline  ";

}

还可以自己编写exe，然后由perl的system函数(或者qx)来调用。

如，可以编写一个，可给输入参数的exe程序：

main.c

复制代码 代码如下:

#include

#include

int main(int argc, char **argv)

//int main(int argc, char *argv[])

{

int i;

for(i=0; i

{

printf("%d arg is %s  ",i,argv[i]);

}

return 0;

}

//该程序的主要功能是打印出传递给main函数的各个参数。

例子：

复制代码 代码如下:

#!/usr/bin/perl

use strict;

my @result=qx{main.exe hello iam here};

my $eachline;

foreach $eachline (@result)

{

print "$eachline ";

}