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