perl基础

perl比较好的博客：http://www.cnblogs.com/cosiray/archive/2012/03/18/2404371.html

以分析一个简单的pm文件为例

#
# オプションの取得
#

#后面为注释

 

use RcxmlReader;
use ProcModuleReader;
use SubListWriter;

用use关键字导入子模块，作用等同于java的import

 

my $moduleID;
my $targetID;

关键字my 定义变量

 

&GetOptions("config=s" => \$configFile,
    "moduleID=s" => \$moduleID,
    "targetID=s" => \$targetID);

从外部传递参数，键值对的形式，3个参数

 

if ($configFile eq ""){

    die "结束程序";
}

die是结束当前的程序退出，相当于java的return功能，或者system.exit()方法

 

my @osSet=();
foreach my $os (@{$ciSetAddr}){
    my $ciNameListAddr = $os->getCiNameList;
    foreach my $ci (@{$ciNameListAddr}){
        if ($ci =~ /OS/){
            $logger->trace("[createAutomatedProcedure.pl] WORK ci=$ci");
            push(@osSet,$os);
        }
    }
}

调用os的方法getCiNameList()得到ciNameListAddr(list类型)，然后循环ciNameListAddr，将匹配到字符串“OS”的push到队列osSet中。

 

my $ref = $subListWriter->write($moduleID,$targetID,\@osSet);

调用子模块subListWriter里面的write方法，传递3个参数。