symbian编译过程（perl）

CPU=>1,

MakeMod=>1,

MakeCmd=>1,

OS=>1,

DefFile=>1,

ASSP=>1,

);

my %PlatHashKeys=(

ABI=>1,

ASSPABI=>1,

SINGLE=>1,

Compiler=>1,

CPU=>1,

MakeMod=>1,

MakeCmd=>1,

OS=>1,

DefFile=>1,

ASSP=>1,

);

散列(hash) 散列又叫关联数组，可以认为是Perl定义的另一种数组，可以用任意简单变量值来访问其元素。

散列使用%作为首字符(数组变量以@打头)。与其它变量名一样，%后的第一个字符必须为字母，后续字符可以为字母、数字或下划线。

Init_BSFs($PerlLibPath);

== @BSFs = ARM9E ARMV6 ARMV6_ABIV2

== D:Symbian9.1S60_3rd_MREpoc32 oolsARM9E.bsf

== D:Symbian9.1S60_3rd_MREpoc32 oolsARMV6.bsf

== D:Symbian9.1S60_3rd_MREpoc32 oolsARMV6_ABIV2.bsf

--------------------

my $BldInfPath=&Path_WorkPath;

&Path_WorkPath # pathutl.pm

view plaincopy to clipboardprint?

sub Path_WorkPath () {

# return the current working directory - programs shouldn't change directory if using this module

$WorkPath;

}

sub Path_WorkPath () {

# return the current working directory - programs shouldn't change directory if using this module

$WorkPath;

}

其中 $WorkPath的值在 pathutl.pm BEGIN块内

view plaincopy to clipboardprint?

BEGIN {

# get the current working directory

$WorkPath=cwd;

$WorkPath=~s-/-\-go; # separator from Perl 5.005_02+ is forward slash

$WorkPath=~s/^(.:)//o; # remove drive letter

$Drive=$1;

$WorkPath=~s-^(.*[^\])$-$1\-o; # ensure workpath ends with a backslash

@WorkPathList=&Path_Dirs($WorkPath);