源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

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

  • 时间:2022-06-14 03:30 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:分享下perl胶水实现前后台对接的方法
1. Perl“胶水”,能够将各种应用程序或者各种语言的代码结合起来。 Perl可以编写普通的脚本程序,还可以使用cgi模块编写Web应用程序,同时可以使用DBI访问各种数据库。 除此之外,Perl可以将各种层次的应用程序粘在一起,发挥更强大的功能。 2. 前台是一个网站Web应用程序,底层或者是后台是用C,C++或者Java编写,使用Perl可以将两者对接起来,实现更强大的功能,发挥各自的优势。 Perl实现该方法的途径有两个: 1) 直接在Perl脚本中嵌入别的语言编写的代码,这个可以使用Perl相关的模块,比较简单的是Inline,更能稍强但稍微复杂的是XS等。 2)另一种,是使用Perl的系统调用函数system: 如: windows下
[u]复制代码[/u] 代码如下:
use strict; my $file="test.txt"; system("edit $file"); #调用dos的edit工具 system("dir");
等。 另一种写法: qx{dir}; 捕获返回的结果,可以将结果赋予标量或者一个列表数组,标量的话获取结果字符的最后一样;数组的话,每个元素对应结果的每一行。 如:
[u]复制代码[/u] 代码如下:
use strict; my @result=qx{dir}; my $eachline; foreach $eachline (@result) {     print "$eachline  "; }
还可以自己编写exe,然后由perl的system函数(或者qx)来调用。 如,可以编写一个,可给输入参数的exe程序: main.c
[u]复制代码[/u] 代码如下:
#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函数的各个参数。
例子:
[u]复制代码[/u] 代码如下:
#!/usr/bin/perl use strict; my @result=qx{main.exe hello iam here}; my $eachline; foreach $eachline (@result) {     print "$eachline "; }
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部