分享下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 <stdio.h>
 
#include <stdlib.h>
 
int main(int argc, char **argv)
 
//int main(int argc, char *argv[])
 
{
 
    int i;
 
    for(i=0; i<argc; 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 ";
 
}

频道导航

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

您可能感兴趣的文章: