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;

}

相关推荐