前言：
刚开始学Perl，学到哪记录到哪。
脚本编译与执行方式
1、在linux下使用terminal命令行执行perl代码：
特点：交互式，
perl -e 'perl code' #命令行中执行时-e和单引号不能少。-e是执行代码的命令行参数，命令行参数还包含其他命令
2、写成.pl文件后，通过命令行来执行文件
#xx.pl or xx.PL
#!/usr/bin/perl # 目录为perl解释器的路径（大概）
use strict； # 有机会再说作用
use warnings；
my $var = 5;
$var = 'abc';
...
chmod 0755 xx.pl #给xx.pl可执行权限，否则脚本无法运行
perl xx.pl #在shell中执行
注释
1、单行注释
#在注释语句前使用#
print "hello world
"; #单行注释
2、多行注释
#多行注释
print "hello world
";
=pod 只能放在一行的开头
多行注释
这种据说是最常见的（也就是说还有别种的）
叫plain old documentations
=cut
数据类型/变量
特点
perl解释器会根据上下文自动选择匹配数据的类型，不需要为变量指定类型。
perl有三种基本的数据类型：标量（整型和浮点型）、数组、哈希（python中的字典？）；
不同类型的变量可以使用相同的名字。
标量
# 标量可以是整型、浮点数和字符串的任意一个
# 标量的定义使用$符号
# 数值的比较使用==，<=,>=,<,>
# 字符的比较使用eq（equal）和ne（not equal）
$var1 = 123; #整型，也存放在浮点寄存器中，实际上也是浮点数
$var2 = 1.23; #浮点数
$var3 = 9.21e+21; #浮点数，e的范围在-309到308
$var4 = "123"; #字符串，使用''可以实现多行字符串
数组
# 数组定义时在变量名前使用@符号；
# 可以直接输出
@names = ("Lisa", "Bob", "Andy"); # 使用()，use strict后字符要带引号
print "names[0] = $names[0]
"; # 访问数组中的变量时，使用 $数组名[下标] 进行访问
print "names[1] = $names[1]
";
print "names[2] = $names[2]
";
特殊数组@_
哈希
显式定义
# 哈希的定义使用%
# 不能直接输出
%name_age = ('Bob',12,'Andy',32,"Lisa",29);
# key的引号没有要求，不知道key可不可以是数字；
# 哈希使用()
print "$name_age{'Bob'}
"; #访问时哈希值使用$哈希名{key}
print "$name_age{'Andy'}
";
print "$name_age{'Lisa'}
";
隐性定义
# 不太熟悉，但是还挺有意思的
$my_hash = {
'chip_name' =>'ga100',
'tree_path' => {
'current' =>'home/abc',
'old' => 'home/xyz',
},
};
print $my_hash->{'chip_name'},"
";
print $my_hash->{'tree_path'}->{'old'}, "
";
变量上下文（变量之间的赋值？）
变量上下文由左边的变量类型决定，与右边的变量类型无关。
perl解释器会根据上下文来决定变量的类型（？内容吧）
@names = ('Bob', 'Andy', 'Lisa');
@copy = @names; # 复制数组
$len = @names; # 数组赋值给标量，返回数组元素个数
print "名字为 : @copy
"; #名字是： Bob Andy Lisa
print "长度为 : $len
"; # 长度为3
die/unless
# die 强制异常退出, 并作为error msg
die ("error happend")；
#还可以配合unless实现python中assertion的作用
die ("file $file_path is not found.") unless(-e $file_path);
# -e用于确定文件是否存在，-d用于确定文件夹是否存在
# 如果$file_path存在则不抛出error
条件语句
if-else
if($var==1){
print "scalar";
}elsif{$var eq 'abc'}{ #使用elsif，而不是elseif
print "string"
}else｛
print 'other';
｝
三目运算符？：
# 和verilog的三目运算符一致
my $name = 'Lisa';
my $age = '20';
my $status = ($age > 40) ? "is me" : "not me";
print "$name - $status
";
循环（foreach）
# foreach用于遍历数组和哈希的元素（暂时这么理解）
my @word = ('d', 's', 'q');
foreach my $elem (@word){
# $elem的作用域仅在foreach block中
# （）是标准格式
# $elem首次定义需要使用my
print " current elem is $elem
";
}
# 使用$_, 可以避免定义$elem
foreach (@word){
print "current elem is $_
" #可以不使用分号影响不大
}
foreach与hash搭配使用（常见的使用场景）
# 定义隐性hash
my $hash_config = {
'a' => 'no1',
'b' => 'no2',
'c' => 'no3',
};
foreach my $rank (keys %{$hash_config}){
# keys是perl的内建命令，用于返回参数hash的所有key name
# %{}将隐性定义的hash强制转换为显性
# 这是因为keys只应用于显性hash
print "$rank states: $hash_config->{$rank}
";
}
子程序/函数
要求：
Perl定义是全局的，函数可以在任意位置定义，并在任何位置进行调用；
所有子程序都有一个返回值；
定义相同名称的子程序会导致前面的子程序被覆盖；
定义子程序关键词sub，定义方式，sub 子程序名｛｝
my $n = 1;
sub marine{
$n += 1; #这里不应该用my
print "Hello sailor number is $n!
";
}
&marine; #调用子程序，5.0以上可以不使用&
返回值：
# perl的子程序必有返回值，但是返回值不一定有用
# 返回值为子程序"最后执行的表达式"结果
sub sum{
print "Hey, called the sum subroutine!
";
$fred + $barrney; #返回值
｝
# 若最后subroutine最后一次执行的不是表达式，则会输出奇怪的东西
# 下式中返回“1”，表示输出成功
sub sum{
print "Hey, called the sum subroutine!
";
$fred + $barrney; #返回值
print "I am returning a value!
"
}
# subroutine返回值是最后执行的表达式，并非一定要求是运算
# 下式中返回最大的一个变量
sub reutrn_max{
if($fred >$ barrney){
$fred;
} else {
$barrney;
}
}
参数
私有变量
通常情况下，Perl中所有变量都是全局变量，
如果要在subroutine中设计私有变量（局部变量），可以使用my进行创建，
该私有变量的作用域从声明开始到闭合作用域为止；
闭合作用域可以是一对花括号中的区域，可以是一个文件，也可以是if，while，for，foreach，eval字符串内部
#!/usr/bin/perl
$string = "Global variables!"; # 全局变量
sub PrintOut{
my $string;
$string = "Local variables!"; # 局部变量
print "函数内部变量为：$string
";
}
PrintOut(); # Local variables!
print "函数外部变量为：$string
" # Global variables
变量的临时赋值
# 临时变量使用local而非my # 临时变量允许在作用域范围内为全局变量提供临时的值 # 待到作用域结束后，全局变量恢复原有值 $string = "Global variables!"; sub PrintTemp{ local $string; $string = "Temporary variables!"; PrintIntra(); print "PrintTemp的值为：$string "; }; sub PrintIntra{ print "PrintIntra的值为：$string "; } sub PrintInter{ print "PrintInter的值为：$string "; } PrintTemp(); # local的作用域为sub PrintTemp的花括号内，因此string全为Temporary variables # PrintTemp的值为：Temporary variables! # PrintIntra的值为： Temporary variables! PrintInter(); # 在local的作用域外，string恢复为Global variables # PrintInter的值为： Global variables! print "函数外部的值为：$string "; # 函数外部的值为： Global variables!
子程序调用上下文
# 将subroutine赋值给变量时，会根据变量类型返回相应的值
# 标量上下文
my $datestring = localtime( time );
print $datestring; # Sun Jun 12 15:58:09 2016
print "
";
# 列表上下文
($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time);
printf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec); # 2106-6-12 15:58:9
# printf 可以整理信息的格式，可以输出到文件里
print "
";