一个简单的根据配置文件设置device的perl脚本（未完成）

perl脚本如下：

#通过devices得到现在的sdk
@trueDevices=`devices`;
foreach (@trueDevices) {
    if (/default/) {
        s/ - default//;
    }
    chomp;
}

#从配置文件读入关键字
$configFileName='d:perlprojectconfig.txt';
open CONFIGFILE,"<$configFileName" or die 'configfile err!';
@config=<CONFIGFILE>;
chomp @config;
close CONFIGFILE;

#在数组中，找到注释的行和set=的行
for ($i=0;$i<@config;$i++) {
    $eachConfig=$config[$i];
    if ($eachConfig=~/#.*/) {
        push @delIndexArray,$i;
    }
    else {
        if ($eachConfig=~/set=/) {
            $eachConfig=~s/set=//;
            push @delIndexArray,$i;
            $setConfig=$eachConfig;
        }
    } 
}

#去掉注释行和set=的行
for ($i=@delIndexArray-1;$i>=0;$i--) {
    splice @config,$delIndexArray[$i],1;
}

for ($i=0;$i<@config;$i++) {
    if ($config[$i]=~/$setConfig/) {
        printf " $i: $config[$i] ";
        $toSetDeviceKeyword=$config[$i];
        $toSetDeviceKeyword=~s/.*=//;    #去掉=之前的所有的，留下的关键字
    }
}

printf "$toSetDeviceKeyword=$toSetDeviceKeyword ";

for ($i=0;$i<@trueDevices;$i++) {
    if ($trueDevices[$i]=~/$toSetDeviceKeyword/) {
        &SetDevice($trueDevices[$i]);
    }
}

sub SetDevice {
    #第一个参数是要设置的sdk标识
    $device=$_[0];
    printf "device:$device ";
    if ($device=~/w/) {
        #device非空，进行处理
        #如果有 - default，则去掉 - default
        $device=~s/ - default//;
        system "devices -setdefault @$device";
        return 0;    
    }
    else {
        printf "device里什么都没有 ";
        return -1;
    }
}

 

配置文件config.txt如下：

#abc
set=2.2a
2.1a=2.1akey
2.2a=2nd_FP2_SC
2.3a=2.3akey
3.0a=3rd_MR
3.1a=3.1akey