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

2020-02-23 19:44:59

字体：大中小

来源：转载

供稿：网友

现在已经很少人学习Perl了，我们在开发项目的时候突然会遇到一些问题，想在网上查阅，才发现都是几年前的内容了，今天武林技术频道为大家更新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胶水实现前后台对接的方法，我们程序员在家中开发的时候，可以参照本文进行操作。

上一篇：Perl 与 Python 之间的一些异同整理

下一篇：总结perl 调试命令的知识

学习交流

笔记本开机提示error loading os错误的问

笔记本开机提示error loading os错误的问题怎么解决...

热门图片

猜你喜欢的新闻

猜你喜欢的关注