unix初级讲座ch07perl编程语言.pptVIP

BUPT MultiMedia Hop Lee 第七章 Perl编程语言 BUPT MultiMedia Hop Lee UNIX操作系统 北京邮电大学 电信工程学院多媒体中心 第七章 Perl编程语言 概述 数据类型 标量 列表数组 关联数组 内部变量 流控 基本I/O 文件操作 格式 函数 Perl 的全称是：Practical Extraction and Report Language－－即“实用摘录和报告语言”。其开发者和唯一的维护者是Larry Wall。 Perl的设计目标是帮助Unix用户完成一些常见的任务，而这些任务对于Shell来说过于复杂。 Perl语言中包含了C,C++,shell,script, sed,awk 这几个语言的语法,它最初的目的就是用来取代UNIX中sed/awk与 脚本语言的组合,用来汇整信息，产生报表。因此 Perl语言要远远比前面讲的Bash复杂和功能强大。 Perl简洁的结构允许你开发一些非常漂亮的、一步到位的方案或通用的工具。 由于Perl的高度可移植性，你也可以将这些工具用于其他的任务。 Perl是免费的，并且各种常见的操作系统上都存在相应版本的发行。 一、概述 Perl脚本的第一行必须是： #!/usr/bin/perl Perl的注释和Shell一样，以#开始 Perl更象一个编译器和解释器的组合。Perl程序在运行之前将进行扫描和分析，但是又不产生庞大的目标代码。未来的版本将能够缓存已编译的代码。 Perl的所有简单语句均以分号结束。 Perl的数据类型主要有三种：标量数据、数组（列表）和关联数组。 二、标量数据 所谓标量就是非矢量、非数组的数据。 Perl中的标量变量以美元符号$和一个字母开始，后面可以跟字母、数字和下划线，Perl的变量区分大小写，因此$a和$A是代表不同的变量。和Bash中不同的是Perl语言中的变量即使是在最初赋值的时候也必须在变量前面加上$符号，而且Perl不要求=左右必须没有空格。 Perl所处理的标量数据包括数字和字符串两大类。 Perl的数值型数据只有一种类型：浮点数，所有的整数都将当作等效的浮点数来处理。浮点型常量的表示方式和C语言里一样。 Perl的字符串类型数据的取值可以是整个ASCII表，并且其长度遵循“无内置限制”的原则－从0直到填满内存。 字符串常量有两种形式：单引号字符串和双引号字符串。 单引号字符串：单引号用于表示字符串的边界，其中可以包含任意字符并且取消所有元字符的特殊含义（唯一的例外是前后相连的\\或\‘）； 双引号字符串：类似于C语言里的字符串，其中的反斜线\用于表示特定的控制字符的开始；并且其中的变量将被置换。 运算符 算数运算符 +, -, *, /, **, % 逻辑运算符 , =, ==, !=, =, , = 字符串运算符 . 串接运算符 x 复制运算符 eq, ne, lt, gt, le, ge, cmp字符串逻辑运算符 数值和字符串之间的转换 如果某个字符串的值被用于数值运算符的运算域，在Perl将自动将其转换为一个十进制浮点数，并且去掉开头的和末尾的非数字元素。 同样的转换发生在某个数值作为字符串使用时。 赋值运算符： =, +=, -=, *=, /=, %=, **=, .=, x=, ++(左、右), -- (左、右) 特殊运算符： $w?$x:$y 如果$w为真，则返回$x；如果$w为假，则返回$y 。 ($x..$y) 返回从$x到$y之间的值。 chop($x) 将$x的字符串值的最后一个字符去掉 例： #!/usr/bin/perl $folks=100; print \$folks = $folks \n; print \$folks = $folks \n; print \n\n BEEP! \a \LSOME BLANK \ELINES HERE \n\n; $date = `date +%D`; print Today is [$date] \n; chop $date; print Date after chopping off carriage return: [.$date.]\n; 注意实际程序中不应该包括行号。 其输出结果如下： $folks = 100 $folks = $folks \n BEEP! some blank LINES HERE Today is [03/29/96] Date after chopping off carriage return: [03/29/96] 第3行显示$folks的值。$之前必须使用换码符\，以便Perl显示字符串$folks而不是$folks的值100。 第4行使用的是单引号，结果Perl不解释其中的任何内容，