perl读书笔记.doc

一.简介Perl就像骆驼,长得有点丑陋,但是他们努力工作,即使是在严酷的环境下也一样.骆驼能在种种不利条件下帮你把事情搞定,即使他们长得不美,而且气味更糟,有时候还要向你吐口水.CPAN是Perl综合典藏网Perl官方Usenet新闻组位于comp.lang.perl.*这一级. 二.标量数据Perl用标量指称单件事物.在Perl中数值和字符串都代表单件事物的标量.直接量直接量是数值在Perl代码中的表现方式,直接写在代码中的数据.1.数值直接量整数和浮点数在Perl内部一律采用双精度浮点数(就是用来编译Perl的C编译器的double类型)进行运算.? 数值操作符 + - * / **2.字符串直接量字符串最短为不含字符的空字符串,最长会填满所有内存,遵循Perl的无内置限制原则.且空字符串没有特殊意义,不用空字符表示字符结尾.单引号内字符 string所有字符代表它本身. (除 \ \\ ,只有反斜杠后面是单引号和反斜杠是,才具有特殊意义)双引号内字符 string反斜杠都具有特殊意义,且支持$和@的变量替换,不支持%的散列替换.字符串操作符 . (点号 连接两个字符串)???????????? x (小写字符x 表示将左边的操作数与它本身重复连接,次数由右边操作数决定)字符串与数字之间的转换根据操作符决定.标量变量变量是一个容器的名称,可以存储一个或多个值.标量变量存储标量值,名称以美元符号($)开头.(注意于与shell区别,shell里取值用$,赋值时不能用)在双引号内的变量都要转换为变量的值.比较操作符(部分同shell)比较????? 数值???? 字符串相等?????? ==????? eq不等?????? !=????? ne小于?????? ?????? lt大于?????? ?????? gt小于等于?? =?????? le大于等于?? =?????? ge?布尔值在数值情况下,0为假,其他所有为真在字符情况下,空字符和0为假,其他所有为真如果不适字符和数值,转换为数字和字符在判断if和while控制结构和C语法一样,只有一点特别注意:程序块必须用花括号{}括起.取得用户输入STDIN? 从标准输入读入一行文字,直到换行符为止.chomp()操作符移出字符串结尾的换行符undef值标量变量首次赋值之前的初始值就是undef(未定义).当成数字假设为0,当成字符串假设为,但undef既不是数字也不是字符,而是另一种类型的标量值.defined()函数该函数可以判断字符串是空或则undef.如STDIN遇到文件结束(EOF)就会返回undefe.g.#!perl$sting=STDIN;chomp($string);if ( defined($string) ){?? print This input is $string;}else{? print EOF;}如果直接在终端键入 Ctrl+D, 就表示文件结束,$string将undef(未定义),所以结果将打印 EOF. 三.列表与数组正如标量代表单数,列表和数组在Perl里代表复数.列表值标量的有序集合,数组是存储列表的变量.数组数组元素以连续的整数来编号,从0开始.? $array[0]=ty$#array表示最后一个元素的索引值.负数数组索引值.-1表示最后一个索引.? $array[-1]==$array[$#array]@array表示引用整个数组.列表列表直接值是圆括号内一串以逗号分隔的值.? (1,2,3)范围操作符 ..? 从左边的标量到右边,每次加1,产生一连串数值. (1..4) == (1,2,3,4)qw缩写 qw/ ty point linuxty / == (ty,point,lnuxty)????? qw里的字符串当成单引号内的来处理.除了/为界定符,还支持!,#,(),,[]赋值($a,$b,$c)={a,b,c);($array[0],$array[1],$array[2])=qw/a,b,c/;? # 等同于 @array=qw/a,b,c/@array=1..4;? #包含1,2,3,4四个元素的数组.pop和push操作符pop取出数组最后一个元素并将它返回,如果数组为空,返回undef.? $tmp=pop(@array)push添加一个(或则一串)元素到数组最后 push(@array,1..3)? 添加1,2,3三个元素到数组最后shift和unshift操作符shift与pop相反,从数组开始取出并返回它,如果数组为空,返回undef.unsh