Perl语言简介

????? Perl是一种通用编程语言。凡是其他编程语言能够使用的地方，都有它的用武之地。在各行各业中，它已经被用于你能够想像到的各种各样的任务的处理。Perl的用途之所以如此广泛，原因是Perl被称为是一种“胶水语言”。所谓胶水语言，也就是说它是可以用来将许多元素连接在一起的语言。Perl真正擅长的是将这些程序连接在一起.

?

????? 由于Perl是一种“胶水语言”，能够将许多元素连接在一起，因此它具有极强的适应性。它至少能够在二十几种操作系统下运行，甚至能够在更多的操作系统下运行。Perl的编程样式非常灵活，因此可以用许多不同的方法来做同一件事情。你编写的Perl程序看上去可能与我的程序毫无共同之处，但是如果它们运行起来，却没有任何问题。

?

?

Mtk平台make2.pl文件分析

?

1 主要变量

?

????? $myCmd? 这个变量的作用是代表项目文件夹下的make命令的

????? $custom?? 代表mtk给客户的版本名称,平台会根据这个名称再加上$project这个变量代表的内容去项目环境下的make文件夹去找相应的make文件.

????? $project?? 代表项目需要编译的主要内容,目前主要有gsm和gprs这两项.

????? @actions = qw(new update remake clean resgen codegen emiclean emigen sysgen ckscatter viewlog c,r c,u gencustominfo);???? ?????? 目前支持的命令数组

????? ARGV 代表命令行下的参数的数组,相当于c语言中带参数的main函数.需要注意的是$#ARGV代表参数即这个数组成员的个数,默认如果没有的话$#ARGV = -1

????? $makeFolder 编译的文件夹

????? $toolsFolder? 平台工具的文件夹

?

?

2 关键语句

?

if ($ENV{"OS"} eq "Windows_NT")

{

??????? $delCmd = "del /Q";

??????? $dirDelim = "//";

??????? $makeFolder = "make//";

??????? $toolsFolder = "tools//";

??????? $MTKtoolsFolder = "mtk_tools//";

??????? $makeCmd = "tools//make.exe";

} else

{

??????? $delCmd = "rm";

??????? $dirDelim = "/";

??????? $makeFolder = "make/";

??????? $toolsFolder = "tools/";

??????? $MTKtoolsFolder = "mtk_tools/";

??????? $makeCmd = "tools/make";

}

?

????? 这些语句是根据不同的系统设置的不同的编译目录.

?

而make2.pl中最关键的语句是

????? system("echo ${makeCmd} -f ${makeFolder}${myMF} -r -R CUSTOMER=$custom PROJECT=$project $action");

?

这条语句的作用解析成dos环境的命令就是

?

????? tools/make.exe -f make/gsm2.mak -r -R CUSTOMER=CCDHBJ26_06B PROJECT=GPRS remake

?

其实就是用make工具编译make文件夹下的gsm2.mak这个makefile文件 其中CUSTOMER 和PROJECT 是在gsm2.mak中的用到的宏定义,remake 是目标模块,也在gsm2.mak中有相应的定义：附 make命令简单介绍

?

Make命令本身可带有四种参数：标志、宏定义、描述文件名和目标文件名。其标准形式为：

?

　　Make [flags] [macro definitions] [targets]

?

?

同时注意perl的system命令,当成功的时候返回0,不成功的时候返回的是非零值而system("echo ${makeCmd} -f ${makeFolder}${myMF} -r -R CUSTOMER=$custom PROJECT=$project $action");的调用 在mtk平台绝大多数情况下是在满足下面的判断的情况下调用的

?

if (($action eq "remake") || ($action eq "update") ||($action eq "new")|| ($action eq "bm_new"))

{

????? system("echo BM_NEW=TRUE ${action}");

?

??????if ($action eq "bm_new")

????? {

??????????? system("echo BM_NEW=TRUE >> ${makeFolder}~buildinfo.tmp");

??????????? $result = system("${makeCmd} -f${makeFolder}${myMF} -k -r -R CUSTOMER=$custom PROJECT=$project new");

?????? }

????? else

????? {

???????????? $result = system("${makeCmd} -f ${makeFolder}${myMF} -r -R CUSTOMER=$custom PROJECT=$project $action");

????? }

?

??? &writeINI;

??????if ((($result == 0)) && ($newMoDIS == 1) && (-d "MoDIS"))

????? {

??????????? &chdirMoDIS;

??????????? &genMoDIS;

??????????? &codegenMoDIS;

??????????? &cleanMoDIS;

??????????? &remakeMoDIS;

??????????? &chdirToMcu;

????? }

????? exit 0;

? }