Perl语言的胶水作用_实现前后台对接

whitek

1. Perl除了具备强大的字符串处理功能之外，还有“胶水”作用，Perl能够将各种应用程序或者各种语言的代码结合起来。
Perl可以编写普通的脚本程序，还可以使用cgi模块编写Web应用程序，同时可以使用DBI访问各种数据库。除此之外，Perl可以将各种层次的应用程序粘在一起，发挥更强大的功能。

2.
前台是一个网站Web应用程序，底层或者是后台是用C，C++或者Java编写，使用Perl可以将两者对接起来，实现更强大的功能，发挥各自的优势。
Perl实现该方法的途径有两个：
1) 直接在Perl脚本中嵌入别的语言编写的代码，这个可以使用Perl相关的模块，比较简单的是Inline，更能稍强但稍微复杂的是XS等。
2)
另一种，是使用Perl的系统调用函数system:
如：
windows下
usestrict;
my$file="test.txt";
system("edit$file");
#调用dos的edit工具
system("dir");


等。
另一种写法为:
qx{dir};
捕获返回的结果，可以将结果赋予标量或者一个列表数组，标量的话获取结果字符的最后一样；数组的话，每个元素对应结果的每一行。
如：
usestrict;
my@result=qx{dir};
my$eachline;
foreach$eachline(@result)
{
print"$eachline ";
}


还可以自己编写exe，然后由perl的system函数(或者qx)来调用。
如，可以编写一个，可给输入参数的exe程序：
main.c

#include<stdio.h>
#include<stdlib.h>
intmain(intargc,char**argv)
//intmain(intargc,char*argv[])
...{
inti;
for(i=0;i<argc;i++)
...{
printf("%dargis%s ",i,argv);
}

return0;

}


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

例子：
usestrict;
my@result=qx{main.exehelloiamhere};
my$eachline;
foreach$eachline(@result)
{
print"$eachline ";
}