Perl学习笔记一

Perl学习笔记一
Perl简介：Perl简单，几乎没有限制，速度快但有些丑。就像代表动物骆驼一样有些丑，但可以在艰苦的环境中完成任务。
CPAN简介： CPAN 是全面 Perl 归档网络（Comprehensive Perl Archive Network）的缩写。在 http://serach.cpan.org/ 和 http://kobesearch.cpan.org 上可以找到他们。
相关网站：
http://www.pm.org/
http://perldoc.perl.org
http://www.perldoc.org
http://faq.perl.org
邮件列表：http://lists.perl.org
?
1、简单例子
1）hello word程序
#!/usr/bin/perl
  print "Hello,word!n";
第一行是#！行和程序的可移植性相关，需要找到每台机器的存放地点。如果有错 他的错误提示是“file not found”这个错误是SHELL提供的。
?
2）运行方法
./my_program
perl my_program
?
第二章 标量数据
1、Perl没有整数值，都视为双精度浮点来处理
?
2、指数的E大小写都可 -1.2E-23 -12e-24
?
3、61298040283768 允许用下划线分隔它 61_298_040_283_768
?
4、非十进制整数 八进制以 0 开头，十六进制以 0x 开头，二进制 0b 开头 十六进制中 A 到 F（或者 a 到 f）分别表示 10 到 15，同样可以用下划线分隔 0x1377_0B77   0x50_65_72_7C
?
5、数字操作符 Perl 除了提供通常的操作符 加（+），减（-），乘（*），除（/）等等之外：
模数运算符（%）：10%3 的值是 10 除以 3 的余数
提供了和 FORTRAN 类似的指数操作符 ：如 2**3，表示 2 的 3 次方，等于 8
通常不能进行一个负数的非整数次方的运算。
?
6、利用字符串(string)可以创建，遍历，操作二进制数据
?
7、单引号不是字符串的一部分， Perl 可以利用它来辨别字符串的开始和结束。反斜线()为转义字符。
?
8、如果想和之后的字符成为转义字符（如n 表示新行），应当使用双引号。
?
9、 双引号字符串中的转义符
符号                 含义
n						换行
r						回车
t						制表符
f						formfeed
b						退格
a						响铃
e						escape（ASCII 中的 escape 字符）
07					任何八进制值（这里是，007=bell(响铃)）
x7f					任何十六进制值（这里是，007=bell）
cC						一个控制符（这里是，ctrl +c）
						反斜线
”						双引号
l						下个字符小写
L						接着的字符均小写直到E
u						下个字符大写
U						接着的字符均大写直到E
Q						在 non-word 字符前加上，直到E
E						结束L,E 和Q
?
10、字符串可由 . 操作符连接，（有点像PHP哦）
“hello”. “world”# 同于 “helloworld”
?
11、一个特殊的操作符是字符串重复操作符(string repetition operator)，由小写的字母 x 表示。
“barney”x (4+1) #“barney”x 5,“barneybarneybarneybarneybarney”
复制次数（右操作数）在使用之前会把它转换为小于等于它的整数（如，4.8 变为 4）。
?
12、数字和字符串之间的自动转换  完全依赖于标量值之间的的操作符。
如果操作符（如+）需要数字，Perl 将把操作数当作数字看待。如果操作符需要字符串（如 . ），Perl 将把操作数当作字符串看待。
后面的非数字部分和前面的空格将被去掉，如 “12fred34”* “ 将给出 36
用首字符 0 表示非十进制值对数字有效，对自动转换没有作用。使用 hex()和 ort()来转换此类字符串。
?
13、$ perl -w my_program   -w警告参数
#!/usr/bin/perl -w 一直都需要警告(warning)在程序中添加
?
14、标量变量的名字由一个美圆符号（$）后接 Perl 标识符：由字母或下划线开头，后接字母，数字，或者下划线，大小写是严格区分的。
?
15、标量变量在 Perl 中由$开头。在 shell 中，当取值时，需要$；赋新值时，不需要$。在 awk 和 C 中，完全不需要$。
?
16、大多数 Perl 程序中的变量都是小写的，应当选择能很好描述你的意图的变量名，仔细的使用下划线可以使变量名更易阅读和理解。
?
17、$barney= $barney*2;#将变量$barney 乘 2 再赋给$barney (40)
?
18、二元赋值  $fred+=5;  $barney*=3;
字符连接符号  $str = str .“ ” #$str 后接空格;
$str .= “”;#同上
?
19、print “ The answer is ”,6*7,“ .n”； 利用逗号分开print输出
?
20、如果使用的是单独一个变量，是否使用引号没有影响。（跟SHELL是一样的）
?
21、在字符串中变量前（$符号前）加上反斜线()，变量将不会被内插（替换）：
$fred = ‘hello’;
print “The name is $fred .n”;  #打印出美圆符号，变量不会被其值替换
print ‘The name is $fred’.“n”; #同上
?
22、 perl中 shell 的分隔符：花括号({})  print “fred ate $n ${what}s.n”;  #现在是使用变量$what 而不是$whats
?
23、操作符的优先级和结合性（由高到低）
结合性			操作符
左				括号和列表操作符的参数
左				->
				++ --(自增和自减)
右				**
右				 ! ~ + - (一元操作符)
左				=~ !~
左				* / % x
左				+ - . (二元操作符)
左				<< >>
				Named unary operators (-X filetests, rand)
				< <= > >= lt le gt ge(“不等的”)
				= = != <=> eq ne cmp(“相等的”)
左				&
左				|^
左				&&
左				||
				..…
右				?:(三元操作符)
右				= += -= .=
左				, =>
				List operators(rightward)
右				not
左				And
左				or xor
如果记不住优先级时，可以使用括号。
?
24、数字和字符串的比较运算符
比较关系			数字			字符串
相等				==				eq
不等				!=				ne
小于				<				lt
大于				>				gt
小于或等于			<=				le
大于或等于			>=				ge
?
25、if控制结构 花括号是必须的
if($name gt 'fred'){
  print "'$name' comes after 'fred' in sorted order.n";
}else{
  print "'$name' does not come after 'fred' .n";
  print "Maybe it's the same string,in fact.n";
}
?
26、Perl 不同于其它的一些语言，它没有 Boolean 类型。
1） 如果值为数字，0 是 false；其余为真
2）如果值为字符串，则空串('')为 false；其余为真
3）如果值的类型既不是数字又不是字符串，则将其转换为数字或字符串后再利用上述规则
字符串'0' 是唯一一个非空但值为 0 的串。
if(! $if_bigger){
}
?
27、如果想更多的控制输入，可以使用 Term::ReadLine 这个模块
$line = ;
if($line eq "n" ){
}
28、基本上你的每一个程序都会用到它chomp
$text = "a line of textn"; #也可以由输入
chomp($text);#去掉换行符(n)。
常用方法：chomp ($text = ); #读入，但不含换行符
?
29、$betty = chomp $food; #得到值 1
 Perl 中的一条通用规则：除非移除它们时含义会变，否则括号是可以省略的。
如果结尾有两个或两个以上的换行符，chomp 仅去掉一个。如果没有，那什么也不做，返回 0。
?
30、while 控制结构
和 if 控制结构相同，花括号是必须的。
?
31、变量在第一次赋值前有一个特殊值 undef， undef 既非数字也非字符串，它是另一种标量类型。变量不进行初始化时、数字为0 字符串为空。
?
32、要分辨其是 undef 还是空串，可以使用 defined 函数，它将在为 undef 时返回 false，其余返回 true。
$madonna = ;
If ($defined ($madonna)){
print "The input was $madonna";
}else{
print "No input available!n";
}
?
第三章 列表和数组
1、如果把标量认为是 Perl 中的单数的话，那列表(list)和数组则可认为是 Perl 中的复数。
2、列表是指数据，而数组是其变量名。列表中每一个元素都是一个独立的标量值。
3、perl哲学：没有不必要的限制。：最少含有 0 元素，最多可以填满你的可用内存。
4、数组索引编号从0开始$fred[0] ，同一程序也可以同时包含叫做$fred 的标量变量
5、下标可以是任何能返回数值的表达式。如果其值不为整数，则自动将其转换为小于它的最大整数值
如果下标超出了数组的范围，则其值为 undef。
6、将$#name 的值作为索引（下标）
7、列表最后一个逗号被忽略
8、（1 .. 5）  #同（1，2，3，4，5）  ．．中的左值应小于右值，否则为空
（1．7 .. 5．7）#同上 小数取整数部分
9、 qw( 表示 "quoted words") 的方法可以不用输入大量的引号
("fred"," barney" ," betty","wilma","dino")
qw(fred barney betty wilma dino ) #同上，但输入更少
由于 qw 是一种引用，因此不可以在 qw 内添加注释。
 Perl 允许使用任何标点符号作为分界符  qw ! fred bar bet !   # #  { }  [ ] < >  这些符号都可以
 10、Perl 格言 ： ： 做一件事不只一种方法("There's More Than One Way To Do It")
 11、列表赋值
 ($fred, $barney, $dino) = ("flintstone", "rubble", undef);
左边列表中的每一个变量都得到了一个新值，和利用 3 个赋值语句得到的结果是一样的。
($fred, $barney) = ($barney, $fred) #交换两个变量
12、引用数组
在数组名前加@(后没有中括号)来引用整个数组。可以把他读作 "all of the(所有的)"
以@rocks 可以读作 "all of the rocks（所有的石头）"
@rocks = qw / bedrock slate lava /;
@copy = @quarry; #将一个数组中的值拷贝的另一个数组中
13、几种不使用索引来操作数组的方法
pop 操作将数组的最后一个元素取出并返回：
@array = 5..9;
$fred = pop(@array); #$fred 得到 9，@array 现在为（5，6，7，8）
如果数组为空，那 pop 什么也不做（因为没有元素可以移出），并返回 undef。
?
pop 相反的操作是 push，它可以将一个元素（或者一列元素）加在数组的末尾：
push(@array,0);#@array 现在为(5,6,0)
push @array,8;#@array 现在为（5，6，0，8）
push 的第一个参数或者 pop 的唯一参数必须是数组变量。
?
shift 和 unshift 操作：对一个数组的开头进行操作（数组的左端有最小下标的元素）
@array = qw# dino fred barney #;
$m = shift (@array);#$m 得到 "dino" @array 现在为("fred","barney")
?
14、数组也可以插入双引号的字符串中。
$email = "fred@bedrock.edz"; #正确
$email = 'fred@bedrock.edu';  #另一种方法
?
15、foreach控制结构
foreach 从列表的第一个元素一直循环执行到
foreach $rock (qw/ bedrock slate lava /){
print "One rock is $rock.n";
}
#打印出 3 种 rocks
?
16、 Perl 最常用的默认变量：$_
$_ = "Yabba dabba doon";
print;
#打印出默认变量$_。
?
17、 reverse 操作
reverse（逆转）操作将输入的一串列表（可能是数组）按相反的顺序返回。
@fred = 6 .. 10;
@barney = reverse (@fred); #得到 10，9，8，7，6
?
18、sort 操作
sort 操作将输入的一串列表（可能是数组）根据内部的字符顺序进行排序。
@rocks = sort @rocks;#现在@rocks 值是经过排序的
?
19、 标量和列表上下文(说是重中之重)
一个给定的表达式在不同的上下文中其含义是不同的。上下文是指表达式存在的地方.(有点像自然语言中的语言环境)
42 + something #something 必须是标量
sort something #something 必须是列表
?
@people = qw( fred barney betty );
@sorted = sort @people;  #列表 context：barney,betty,fred
$number = 42 + @people;  #标量 context：42+3，得到 45
?
@backwards = reverse qw / yabba dabba doo /;
#返回 doo,dabba,yabba
$backwards = reverse qw/ yabba dabba doo /;
#返回 oodabbadabbay
?
 在标量 Context 中使用 List-Producing 表达式
$fred = something; # 标量 context
@pebbles = something; #列表 context
($wilma,$betty) = something; #列表 context
($dino) = something; #列表 context 。括号是必须的，它使第四个区别于第一个。
?
在列表 Context 中使用 Scalar-Producing 表达式
其用法是显然的：如果一个表达式不是列表值，则标量值自动转换为一个元素的列表：
@wilma = undef;#OOPS！得到一个元素的列表(undef)，不同于下面的例子
@betty = ();#将数组置空的正确方法
由于 undef 是一个标量值，将 undef 赋给数组不会清空数组。一个更好的方法是将空列表赋给它
?
20、在列表 Context 中
@lines = ; #将输入读入列表 context 中
当输入来源于一个文件时，它将读入文件的剩余部分。但如果输入来源于键盘，那文件结束符(end-of-file)是怎样输入的呢？
在 Unix 或者类似的系统中，包括 linux, Mac OS X，通常可以输入 CTRL +D来表明输入已经结束。Perl 会忽略这个字符，
因此它将在屏幕上显示出来。在 DOS/WINDOWS 系统中，使用 CTRL +Z。
?
chomp (@lines = ); #读入所有的行，不包括换行符