麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Perl > 正文

分享下perl膠水實現(xiàn)前后臺對接的方法

2020-06-04 20:28:30
字體:
供稿:網(wǎng)友

1. Perl“膠水”,能夠?qū)⒏鞣N應(yīng)用程序或者各種語言的代碼結(jié)合起來。
Perl可以編寫普通的腳本程序,還可以使用cgi模塊編寫Web應(yīng)用程序,同時可以使用DBI訪問各種數(shù)據(jù)庫。
除此之外,Perl可以將各種層次的應(yīng)用程序粘在一起,發(fā)揮更強大的功能。

2.
前臺是一個網(wǎng)站W(wǎng)eb應(yīng)用程序,底層或者是后臺是用C,C++或者Java編寫,使用Perl可以將兩者對接起來,實現(xiàn)更強大的功能,發(fā)揮各自的優(yōu)勢。
Perl實現(xiàn)該方法的途徑有兩個:
1) 直接在Perl腳本中嵌入別的語言編寫的代碼,這個可以使用Perl相關(guān)的模塊,比較簡單的是Inline,更能稍強但稍微復雜的是XS等。
2)另一種,是使用Perl的系統(tǒng)調(diào)用函數(shù)system:
如:
windows下
代碼如下:
use strict;
my $file="test.txt";
system("edit $file");
#調(diào)用dos的edit工具
system("dir");

等。

另一種寫法:
qx{dir};
捕獲返回的結(jié)果,可以將結(jié)果賦予標量或者一個列表數(shù)組,標量的話獲取結(jié)果字符的最后一樣;數(shù)組的話,每個元素對應(yīng)結(jié)果的每一行。
如:

代碼如下:
use strict;
my @result=qx{dir};
my $eachline;
foreach $eachline (@result)
{
    print "$eachline  ";
}

還可以自己編寫exe,然后由perl的system函數(shù)(或者qx)來調(diào)用。
如,可以編寫一個,可給輸入?yún)?shù)的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函數(shù)的各個參數(shù)。

例子:
代碼如下:
#!/usr/bin/perl
use strict;
my @result=qx{main.exe hello iam here};
my $eachline;
foreach $eachline (@result)
{
    print "$eachline ";
}

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 免费看污视频在线观看 | 激情视频免费看 | 日本特级a一片免费观看 | 嗯~啊~弄嗯~啊h高潮视频 | 亚洲aⅴ免费在线观看 | 91a在线观看 | 国产精选久久 | 亚洲性在线视频 | 毛片一级网站 | jizzyouxxxx| 91成人免费网站 | 韩国19禁在线 | 久久久久久久久亚洲精品 | 色妞视频男女视频 | 国产精品久久久久久模特 | 日本aⅴ在线 | 全免费午夜一级毛片真人 | 国产伦精品一区二区三区 | 久久久久久艹 | 毛片一区二区三区 | 媚药按摩痉挛w中文字幕 | 亚洲自拍第二页 | 曰批全过程40分钟免费视频多人 | 欧美成年人在线视频 | 亚洲午夜精品视频 | 中文字幕www.| 奶子吧naiziba.cc免费午夜片在线观看 | 亚洲视色 | 久久99精品视频在线观看 | 草b视频在线观看 | 国产精品视频一区二区三区四区国 | 欧美一级片免费在线观看 | 欧美亚洲国产日韩 | 欧美精品亚洲人成在线观看 | 91精品久久久久久久 | 久久久www成人免费精品 | 日本精品视频一区二区三区四区 | 精品麻豆cm视频在线看 | 久久久麻豆 | 一级黄色影院 | 一级免费看片 |