Perl学习笔记一

zhk2369

　　
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制表符
　　
\fformfeed
　　
\b退格
　　
\a响铃
　　
\eescape（ASCII 中的 escape 字符）
　　
\007任何八进制值（这里是，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 text\n"; #也可以由输入
　　
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 doo\n";
　　
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 = ); #读入所有的行，不包括换行符