IC入职新同学必备技能手册 - Perl (1)

# 普通变量（标量）
my $var = 1;
$var = 'abc';
 # 不能再my啦！双引号允许使用转义字符，单引号不行
 # 比如'\n'，就是认为是\n，而不是换行符

# 数组
my @arr = ('a', 1, 'string a b');

# 哈希
# 很少使用%my_hash这样的形式定义hash, 这个叫显性定义
# 更多的是使用所谓“隐性”定义，例如
$my_hash = {
    'chip_name' => 'ga100',
    'tree_path' => {
        'current' => '/home/abc',
        'old'  => '/home/xyz',
    },
};  # Perl语言对于白空格很随意，
    # 用分号结尾即可

print $my_hash->{'chip_name'} , "\n";
(结果是) ga100
print $my_hash->{'tree_path'}->{'old'}, "\n";
(结果是) /home/xyz

$_  # 可以将它理解为，
    #当前代码块的默认变量
    # 尤其常用于foreach
# example
my @arr = (a, b, c);
  # 定义数组，字符可以忽略引号
print $_, "\n" foreach @arr;
  # 这里$_ foreach循环中的当前元素

# 输出
a
b
c

@_  # 用于函数传参，
# 对！Perl的子函数，没有C那样的参数列表，
# 想传什么就传什么
# 具体例子在函数套路中讲解

die # 其实就是强制异常退出
# 比如
die ("Error happened!");
# 这句话强制让脚本退出，
# 且在terminal输出这句话，作为error msg.
# ===========
# 配合unless. unless其实的作用类似if语句
# 比如
die ("File $file_path is not found.") unless (-e $file_path);
   # -e 是代表检测文件是否存在
   # 翻译过来就是，强制退出并提示信息，除非！$file_path文件存在.

my $path = `pwd`;  # ``表示执行shell命令
die ("The folder not exist.") unless (-d $path);
   # die/unless出现啦， -d表示检测文件夹是否存在
   # 但是！无论$path存在与否，这句话肯定会强制退出，
   # 因为`pwd`的返回字符串结尾有换行符，经常在这里吃亏。
# ========================
# 换种方式
my $path = `pwd`;
chomp($path);  # 去掉换行符
die ("The folder not exist.") unless (-d $path);
   # 这样就不会因为换行符的缘故，误退出了。

if ($var == 1) {
  # 对于数值量比较， == , <= , >= , < , > 都可以
} elsif {$var eq 'abc'}  {
  # 这里注意！第一，Perl使用elsif, 而不是elseif ！
  # 注意这里用的是eq !
  # 对于字符串的相等，只能用eq (equal) 和 ne (not equal)。
} else {
  # 嗯，else还是和其他语言类似的
}

# foreach循环其实有两种套路
# 普通的
my @arr = (a , b , c);
foreach my $elem (@arr)  {
 # 注意：my的使用，因为$elem前面没定义，
 # 所以这里必须定义用my。
 # 其次, elem的作用域仅仅在这个foreach block
 # 括号()是标准格式哦，常常忘记

 print "Current elem is $elem \n";  # 常规用法
 # 为啥不能用$_ ？因为你都指定每个元素放在$elem里啦！
}
# 想用$_ ?
foreach (@arr) {
   print "Current elem is $_    \n" ;
    # 可以的。没必要为了用$_而用，看个人习惯。
}

# foreach循环最常用的是搭配哈希，
# 为啥，因为IC环境里面，hash存储着大量的config数据，
# 需要拿出来各种操作
my $my_hash = {
       'ga100' => 'go_fab',
       'gv100' => 'shipped',
       'gm100' => 'shipped'
};

foreach my $chip_name (keys %{$my_hash}) {
  # 这里有点复杂：
  # keys 是Perl內建命令，用于返回参数hash当前层次的所有key name
  # %{}  表示将隐性定义的hash强制转换为显性，
    # 为啥，因为keys只认显性hash
  # $my_hash 你会迷糊，$不是表示标量么？
  # 对，但这里的标量可以理解为hash数据结构的头指针
   
print "$chip_name status:  $my_hash->{$chip_name} \n" ;

}

（结果是）
gm100 status:  shipped
ga100 status:  go_fab
gv100 status:  shipped