分享下perl膠水實現前後台對接的方法

來源:互聯網
上載者:User

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 ";
}

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.