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 字符） \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 = ); #读入所有的行，不包括换行符
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。