【原创】Perl语言入门学习笔记

sdsk

　　$指一个 ，@指一堆，%指hash
---------------------------------------------------
x 字符串重复操作符.Eg: "fred" x 3 = "fredfredfred"
------------------------------------------------------
数组：
$#数组名 最后一个元素的索引值
$数据名[-1] 最后一个元素
pop和push在最后段操作,shift和unshift在最左端操作
reverse 反转列表元素
sort 对列表的值排序
$_ 默认变量.Eg: foreach循环中的默认变量
---------------------------------------------
子程序：
&子程序 调用子程序
最后一个运算的结果对自动生成子程序的返回值。当然也可以用return.
@_ 存储子程序的参数列表（私有变量）。$_[0]指@_的第1个元素。
@_ 还可以用来判断参数长度。Eg: if( @_ != 2 ) {}
my 子程序私有变量定义符。
state 可以在子程序多次调用期间保留变量的值，并将变量的作用局限于子程序中。
---------------------------------------------------------------------
输入输出:
<STDIN> 读取一行
<> 读取程序调用参数的输入流。
@ARGV 程序调用参数列表。可以强制定义值供<>读取。
open 打开文件句柄
select 句柄 : 改变默认的文件输出句柄
die 输出错误信息。
$! 操作系统错误的相关信息。
--------------------------------
哈希：
$哈希名{key} 访问hash中的元素
%哈希名 指代整个哈希
reverse %hash 建立一个反转hash
=> 胖箭头用于创建hash
%hash = ("a" => 1 , "b" => 2, "C" => 3);
@ks = keys %hash
@vs = values $hash
$count = keys $hash ##得到hash的键值数
while ( ($key,$value) = each %hash ) {} ## each 函数罗列键/值
if(exists $hash{"key"}){} 检查hash中是否有某个key
delete $hash{"key"} 删除key/value
%ENV哈希 机器系统环境hash Eg: $ENV{PATH}
-------------------------------------
正则表达式：
m/ / 模式匹配操作符，简写为 / /, 也可以 m% %
=~ 绑定操作符 拿右边的模式来匹配左边的字符串
Eg: if($so =~ /\brub/) {}
$1,$2 ... 圆括号模式组的匹配结果。
%+ 此hash存储正则匹配的结果。key是特殊标签。Eg:
use 5.010;
my $names = 'Fred or Barney';
if( $names =~ m/(?<name1>\W+) (?:and|or) (?<name2>\W+) ) {
  say "I saw $+{name1} and $+{name2}"
}
　　$` 匹配起始位置之前的字符串。
$& 匹配结果。
$' 匹配结果到结束位置的字符串。
　　s/// 替换模式. Eg:
s/Braney/Fred/ # 把Barney替换为Fred.
$_ = "green scaly dinosaur"
s/(\w+) (\w+)/$2,$1/; #替换后为 "scaly,green dinosaur"
　　@fields = split /separator/, $string;
Eg: my @args = split /\s+/,$some_input;
    my @fields = split; # 默认以空白字符分割$_;
　　my $result = join $glue, @pieces;
　　$^I 默认值是undef,备份文件的扩展名
-----------------------------------------
unless(if反义),unless-esle,until(while反义),if-elsif,
for,foreach
循环控制：
last : 立即终止循环(break)
next : 结束当前这次迭代 (continue)
redo : 返回本次循环的顶端
--------------------------------
glob： my @all_files = glob "*"; #取得当前目录中的所有文件，并按字母顺序排序。
简写:  my @all_files = <*>;
　　open 句柄
opendir 目录句柄 ：打开目录句柄
readdir 目录句柄 ：读取目录句柄
　　unlink 参数列表 ：删除文件
Eg: unlink glob "*.txt" #删除*.txt文件
　　rename "old","new" 重命名
mkdir 目录名,0755 ：建立目录
rmdir 目录名 ：删除目录
chmod 0755 "fred","barney"; ：修改文件或目录的权限
chown $user,$group,glob "*.txt"; : 更改隶属关系
utime $now,$ago,glob "*.txt"; : 修改时间戳
-------------------------------------
$where = index($total,$sub); #索引搜索首次出现字串的位置
$where1 = index($total,$sub,2) #从第2个职位开始搜索
rindex函数搜索字串最后出现的位置(也是从头开始搜索)，
第三个参数是限制返回的最大位置
　　substr 字符串，起始位置(-1表示最后一个字符)，长度(可省略)
substr还可以赋值，正则表达式替换。Eg:
substr($string,0,5) = "Goodbye";
substr($string,-20) =~ s/fred/barney/g;
　　<=> 比较两个数字并返回-1、0或1.
cmp 比较字符串
$hash{$a} <=> $hash{$b}
Eg：
my @temp = qw/4 3 2 0 9 6 5 1/;
my @result = sort { $a<=>$b } @temp;
---------------------------------
~~ 智能匹配操作符（5.10）
1.替代 =~
2.%hash ~~ /pattern/ 遍历hash中的所有键，逐个匹配，如成功停止，返回真
3.@enum1 ~~ @enum2 数组相等
4.@enum ~~ $num 判断$num是否在@enum中，顺序可互换。
　　given ($flag) {
when(/fred/i) { say 'Name has fred in it'}
when('Fred') { say 'Name is Fred'}
default { say "I don't see a Fred"}
}
　　foreach (@names) {
when () {}
when () {}
default {}
}
　　---------------------------------
　　$$ 当前运行的进程数字代号。
`` 反引号。
　　$@ eval表达式发生错误时的错误信息
--------------------------------
=~ 绑定操作符
~~ 只能匹配操作符