《Perl 语言入门》摘录笔记
1. 所有数字的内部格式都相同。 Perl内部并不存在整数值--程序中用到的整数常量会被转换成等效的浮点数值。
2. 长长的数字可以用"_"分隔： 61_297_768,这样易读且不容易出错
3. 乘幂操作符： ** , eg: 3的5次方? 3**5
4. 单引号中的字符串中只对 '\'和'''转义即可，例如： '\n'是2个字符，反斜杠和n两个字符。
5. 双引号中的字符串和c语言中的类似,新特性是可以使用标量变量内插。
6. 字符串操作符：'.'（和php一样）和 'x'（后跟复制次数表达式） 分别用于连接和复制次数。? ?
7. Perl内建警告信息：
?? $perl -w my_program
?? #!usr/bin/perl -w
?? 5.6以上版本可以使用：
?? #!/usr/bin/perl
?? use warnings;
??? 有警告选项后想知道详细警告的内容，可以再用 use diagnostics;
8. 字符串"0"是唯一被当成假的非空字符串
9. 获取用户输入： $line = <STDIN>? 带换行符。若想去掉换行符，用 chomp($line);可以写成一步： chomp($line=<STDIN>)
?? ?chomp 返回值，如果有换行符号，则删掉一个（有多个时也删除一个），返回1否则返回0
10. undef是一个特殊类型， 是整数时为0， 字符串时为空。
??? 在读到文件结束时，<STDIN>会返回undef，测试时可以使用 defined函数，
??? $line = <STDIN>
??? if ( defined($line)){...}
??? else{over;;;}
11. 数组的命名空间和标量名字空间是完全分开的，所以可以有$line和$line[10]同时存在，编程时注意不要混用，否则维护起来麻烦。
12. 下表问题。 数组长度：? $#arrayname:数组长度减1的值，即最后一个元素的下标。
??? Perl中数组的下表还可以使用负数，-1代表最后一个元素。
13. 列表直接量： (1,2,3)?? () ?
??? 范围操作符： ".."? ,只能自增1, 例如(1..4)是(1,2,3,4) ，而写成(4..1)则实际为空列表()
??? 列表中的字符串简写，不用写引号界定字符串用qw?? qw(fred barney betty) 其中的qw后面的'('为界定符，可以使用其他的。
??? 注意：因为我qw算是一种引号，所以不能将注释放在qw列表中。
14. 引用整个数组： @arrayname=@another_arrayname
15. 数组操作：末尾操作 pop push， 首部操作： shift, unshift
16. 字符串中的索引表达式会被当成普通字符串表达式。
17. Perl ”老地方“ 也就是默认的变量： $_
18 排序： sort 从小到大， 若相反， 用 reverse sort(), 另外对于数字排序结果是错误的，即只能用于字符串。不知道数字会咋搞。
19. 标量上下文与列表上下文： 同一个表达式，出现在不同的地方会有不同的意义
20. 清空数组的方法： @betty = ();
??? 而这样： @betty = undef? 是得到一个列表，而且仅有一个元素为未定义。
21. 强制执行标量上下文： scalar 伪函数? 例如 print scalar @rocks 是数组大小
22.? 子程序名有自己独立的命名空间，不会和变量混淆，并且使用时使用关键字sub表明，调用时使用&。
???? 子程序的定义是全局的，如果重名，后面的会将前面的覆盖掉。
23.? 子程序如果有参数，可以像使用c函数那样传递，但在子函数中，使用参数时是利用：$_[index]的方式，注意，$_和$_[]是不同的
24. 子程序的私有变量 用my声明。在 My 不使用括号时，只用来声明单个词法变量。
???? eg:? my $fred, $$barney;? #$barney没有被声明为私有
????????? my ($fred, $barney); #声明了2个
25. 高水线算法（high-water mark） ：大水过后，在最后一波浪消退时，高水线会标示出最高的水位。
26. use strict 编译命令使检查语法更加严格，例如先定义再使用等。
27. 函数的调用使用&问题，如果在调用前，编译器已经看到了函数的定义，则可以省略，此外，如果自定义的函数和内置函数重名，使用&将调用自己定义的函数，
??? 所以总是使用&是一个良好的习惯。
28. 持久性性私有变量：用关键字state。 state $n=0;
??? 在使用数组和哈希类型的state变量时，还有一些轻微的限制。在Perl5.10中我们不能在列表上下文中初始化这两种类型的state变量。
??? eg：state @array = qw(a,b,c);? #错误
29. 在使用列表的上下文中调用“行输入操作符”会返回一个列表：
??? foreach (<STDIN>) {
??????? print " I saw $_"
??? }#此时虽然输出正确，但是会将所有数据先读入列表，然后分别存到$_中进行运算。
30. 由于钻石操作符通常会处理所有的额输入，所以当它在程序里出现好几次时，通常是错误的。
31. 假如它看起来像函数调用，它就是函数调用： print (2+3)*4?? 输出5
32. 6个Perl保留的文件句柄：STDIN STDOUT STDERR DATA ARGV ARGVOUT
33. 文件打开：?? open FILENAME, "< infilename" or
???????????????? open FILENAME, ">" , "filename"
??? 文件关闭：? close FILENAME
34. 使用文件句柄： if ( ! open PASSWD, "/etc/passwd") {
????????????????????????? die " How did you get logged in ？ ($!)"? #die 会终止程序，$!为系统提示错误。warn可以模拟警告。
?????????????????? }
?????????????????? while(<PASSWD>){}
?????????????????? print PASSWD "something"
??? 改变默认的文件输出句柄： select BEDROCK
???????????????????????????? print "this will apperance in the BEDROCK file";
35.? 带换行的打印： say ,类似于 print（不带格式字符串） ，不同于printf（带格式字符串）。
@@@@@@@@@ 第 6 章 ?? ?哈希 @@@@@@@@@@@@
36. 哈希的键和值都是任意的标量，但是键总是会被转换成字符串。
37. 访问整个哈希： %hashname ,? 引用一个hash： $hash_name{$key}
38. hash 操作： ?
?? ??? ? each 函数: while( ($key, $value) = each %hash ) {...}
?? ????????? keys %books:得到关键字列表
???????????????? values %books : 得到值列表
?? ??? ? exists $book{$var}
???????????????? delete $book{$var}
??? 内插值：单一的哈希元素在双引号中是可以的，但是整个哈希的内插是不支持的。
???????????? eg: print "$person has $books{$person} items\n"? 正确
???????????????? print "%books" 只会出现六个字符而已
?? Perl 把环境变量存在 %ENV 哈希表中? ?
@@@@@@@@@ 第 7 章? 漫游正则表达式王国 @@@@@@@@@@@@
39. 使用简易模式： 如果匹配的对象在$_中，则只要把模式写在//中间就可以了 ?
???? $_="abbaabba"
???? if ( /abba/ ) {}
??? 注意： . 只能匹配一个字符，并且是除换行以外的字符。
??? 简易的量词： *+?
??? [\d\D] : 匹配数字和非数字，也就是所有可能的字符一次。
??? 组的用法。/((.)(.))?? \g{3}/ # \g{}中跟组的标号，组的标号从左括号出现的顺序决定
@@@@@@@@@ 第 8 章? 正则表达式进行匹配 @@@@@@@@@@@@
40. 可选修饰符
?? /i? 忽略大小写
?? /s? 使.可以匹配换行，此时.相当于[\d\D]
?? /x 加入空白，允许空白，匹配时自动略去。
?? 锚位： ^: 行首
????????? $:行尾
????????? \b:单词首尾
??? 匹配横向制表符： \h =? [\t ]
??? 绑定操作符号： =~? 作用直接用右边的模式来匹配左边的字符串而不是匹配$_
????????????????????????? $some =~ /\byes\b/
??? 模式串中也可以有内插
捕获变量： if ( /(ssss) / ) {print $1},如果比对失败，$1中可能是上次的遗留信息。
不捕获变量 if ( /(?:ssss) (bbb) ) {print $1} $1 是(bbb)匹配的
命名捕获： if ( /(?<name1>pattern)? \g{name1) \k{name1} \g{1} \1} 都可以
???????????????????? print $+{name1}?? 使用
自动匹配变量： ($`)($&)($'):匹配前、匹配的、未匹配的
如果使用了这些自动变量，会拖慢后面的正则表达式的速度，所以一些程序员宁可在这里加一个括号来达到目的
正则表达式的优先级：
?? ?圆括号?? ?
?? ?量词
?? ?锚位和序列
?? ?择一
?? ?元素
正常的匹配是用 m//来匹配的
@@@@@@@@@ 第 9 章? 用正则表达式处理文本 @@@@@@@@@@@@
41. 替换： s/// 也可以用 s{}()等等
可选修饰符： /g , /s , /i
绑定操作符：=~
大小写转换; \U将后面的所有字符转换成大写
?? ???? \L 将后面的所有字符转换成小写
??????????? \E 结束大写转换
??????????? \l? 只转换一个小写
??????????? \u? 只转换一个大写
split 操作符： @fields = split /separator/, $string
split 会保留开头处得空字段，并省略结尾处的空字段。
split? 默认会以空白字符分隔$_
?????? my @fields = split;
join 函数
my $z = join "-", @array
贪心模式量词和非贪心量词
贪心匹配：尽可能多的匹配，在出现后面无法匹配时吐出一些，再匹配，如果成功，继续，否则再吐，再匹配。很多回溯。
非贪心模式匹配：尽可能少的匹配，匹配上一个就继续下面的模式，如果不匹配则吞一个再匹配，相当于一点一点往前匹配。
+: +?
*: *?
这两种情况要根据实际情况来选择。
跨多行匹配： /m? multiple lines
一次更新多个文件： $^I='.bak'
@@@@@@@@@ 第 10 章 其他控制结构 @@@@@@@@@@@@
42. unless ： 相当于 if (condition == false{}
??? until(){}
elsif
last 相当于 break
next 相当于 continue;
redo? 回到循环顶端，不是下一次迭代而是重新执行本次循环。
”定义否“操作符： // eg: my $last_name = $last_name{$some} // '(No last name)'
第 13 章 目标操作
使用文件通配获取文件名：? my @pm_files = glob "*.pm"; 另一种写法： my @dir_files = <$dir/* $dir/.*>
目录句柄：? opendir DH, $dir_name or die "Cannot open $dir_name:$!"
?? ???? closedir DH;
Unix 上有个鲜为人知的事实：某个文件可能你无法读取、写入、执行。其实它根本就是别人的文件，但你还是可以将它删掉。这是因为删除文件的权限跟文件本身的权限位无
关，它取决于文件所在目录的权限位
删除文件 unlink (name1,name2)
rename "old" "new" 相当于mv命令
链接的另一个限制，就是不能为目录建立额外的名称。
软链接：符号链接， symlink "filename" "linkname"? 这样就可以跨越文件系统了，软链接可以指向目前还不存在的文件。并且不会增加inode的连接数。
链接信息的获取： my $where = readlink "linkname"
oct函数能强行把字符串当成八进制数字处理，无论它是否以零开头：
?mkdir $name , oct($permissions)
删除空目录：? rmdir $dir or warn? "cannot rmdir $dir : $!"
简历临时文件时，使用进程号： $$
删除子目录，参照 File::Path
chmod 0755, "file1", "file2"; #这里只接受数字权限
更改隶属关系： chown $user, $group, "filename"; # $user 和$group 必须是数字的，可以用? getpwnam 将用户名翻译成数字， 用getgrname 将组名翻译成数字。
搜索子串的位置： my $stuff = index ( $big , $small );?? $stuff = index ( $big , $small, $big+$stuff); 返回-1时是找不到。
用substr处理子串： $part = substr($string, $initial_postion, $length);
sort 中自己的比较函数：
sub by_num {
?? if ( $a < $b ) {-1} elsif ( $a > $b ) {1} else {0}
} # $a 和 $b 是实际的两个值，修改会改变列表中的值，所以不要修改。
可以用飞碟操作符比较数字： <=>? :
sub by_num { $a<=>$b}等同于上面的效果
比较字符串的： sub by_string { $a cmp $b }
使用： my @result = sort by_num @some_numbers;
sub case_insensitive { "\L$a" cmp "\L$b"}
智能匹配： ~~
given-when控制结构：
given ( $ARGV[0]){
?? ?when( /fred/i ) {}
??????? default {}
}
?
用map和grep对列表进行转换。数组切片、哈希切片、
