Unix_Linux脚本编程_ perl部分

Unix/Linux脚本编程: perl部分本部分共包括以下部分:1. 基本介绍2. 变量,语法2.1简单变量2.2perl中的数组2.3关联数组2.4其他运算符2.5基本输入输出2.6分支循环控制结构2.7perl函数2.8常用系统调用2.9文件操作3. perl的正则表达式3.1正则表达式的三种形式3.2正则表达式中的常用模式3.3正则表达式的八大原则4. perl的一些应用1: 基本介绍Perl 是 Practical Extraction and Report Language (实用摘录和报告语言)的简称，是由 Larry Wall 所发起的。现在其最新版本为5.0。Perl 的设计目标是帮助 UNIX 用户完成一些常见的任务，这些任务对于 Shell 来说过于沉重或对移植性要求过于严格。Perl 语言中包含了 C、C+、shell,script、sed、awk 这几个语言的语法,它最初的目的就是用来取代 UNIX 中 sed/awk 与 脚本语言的组合,用来汇整信息，产生报表。因此 Perl 语言要远远比前面讲的 BASH 复杂和功能强大。Perl 的设计原则或者说 Perl 的设计哲学是以实用为第一优先，也就是力图使 Perl 语言容易使用、有效率、而且完整。Perl 是原先运行于 UNIX 和类 UNIX 系统，现在已可以方便地在OS/2，Windows 9x，Windows/NT等系统下运行。Perl 是一种解释运行的语言，和 BASH 程序一样，一般 Perl 程序的第一行需注明自己是一个 Perl 程序而不是 Shell 程序，所以一般将下面一行语句：#! /usr/bin/perl 作为文件的第一行。 Perl 由于引入了模块的设计思想，随着版本的改进，功能越来越强。现在 Perl 的功能已经超乎原先设计时的想象，几乎任何事都可以做到，也变成每一部工作站必备的标准工具了。Perl 最为著名的一点就是它对字符串的处理，由于 Internet 对文字信息处理的巨大需求，使得 Perl 的应用如日中天，而且 Perl 语言也的确是一个非常优秀的文字信息处理语言。return2: 变量,语法2.1简单变量Perl 的 Hello World 是怎么写的呢？请看下面的程序：#!/usr/bin/perlprint Hello World这个程序和前面 BASH 的 Hello World 程序几乎相同，只是第一行换成了 #!/usr/bin/perl ，还有显示的时候用的是 print，而不是 echo。有了前面 BASH 基础和 C 语言的基础，许多 Perl 的知识可以很容易的就看懂和记住.简单变量是标量，是 Perl 处理的最简单的数据类型。标量可以是数字(如2,3或2.5e6)， 也可以是字符串。Perl 中的标量变量以美元符号 $ 和一个字母开始，后面可以跟字母、数字和下划线，Perl 的变量区分大小写，因此 $a 和 $A 是代表不同的变量。和 BASH 中不同的是 Perl 语言中的变量即使是在最初赋值的时候也必须在变量前面加上 $ 符号，而且 Perl 不要求 = 左右必须没有空格。虽然 Perl 中和 BASH 一样，没有变量类型的概念，我们还是可以把简单变量分为数值型和字符串型来理解。在赋值时，如果是赋值成字符串，则需要在字符串两边加上双引号（或单引号）；如果是数值则就不用了，而且 Perl 中还可以接受8/16（以0开头/以0x或0X开头）进制的整数，还可以接受如 2.5,-6.3e5,-2.3-e6 这样的浮点数。关于简单变量举例如下：$a=23; $a = How Are You?; $a = 010;（表示十进制的 8）$a = 0x10; 表示十进制的 16）$a = 0X10; 表示十进制的 16）和 C 语言类似，在双引号之中可以用反斜杠表示一些特殊转义字符，见下表:结 构含 义n换行r回车t水平置表符f换页符b退格v垂直置表符a响铃eEsc007任一八进制ASCII值(这里007表示bell)x7f任一十六进制ASCII值cC任一“控制”字符反斜杠双引号l下一字母小写L以后所有字母小写直到Eu下一字母大写U以后所有字母大写直到EE结束L和U另外在 Perl 语言里，我们常会看到 my 这样的变量定义，如：my $a = local var;这表示 $a 是一个程序块的局部变量。return2.2:perl中的数组数组是标量数据的有序列表。数组可以含从 0 个元素大小 直到 你计算机内存可以支持的大小。数组用括号内以逗号分隔的一系列元素来表示。如：a=(1,2,3,4,5)b=(fang,1971,166.111.164.166)在 Perl 中对数组变量和前面的简单变量的存储是在不同的空间中，对数组的引用需要在变量前加 符号。数组的赋值由下面几种用法需要注意：a=(1,2,3);# 初始化一个整数数组。$a=a;# 这里表示将数组 a 的长度赋给 $a，此时 $a 和 a 不是一个变量，他们不在一个存储空间里，引用时不会发生混淆。($a, $b, $c)=(1,2,3);# 这里表示将 1 赋给 $a；2 赋给 $b；3 赋给 $c；a=(a,b,c);# 初始化一个字符串数组。b=a;# 表示把数组 a 拷贝一份给数组 b，a 与 b 不享有共同的存储空间，他们彼此分离。c=(a,b);# 表示数组 c 拥有 a 和 b 的所有元素，仍然是一维数组，而不是发生了嵌套。($a,b)=a;# 表示变量 $a 等于数组 a 的第一个元素，b 拷贝了 a 的剩余元素。a=();# 表示产生或清空一个数组。($a)=b;变量 $a 等于数组 b 的第一个元素的值。bi引用数组 b 的第 i 个元素。$bi如果 b 表示一个数组的话，其含义同上。$ai,j=x,y将数组 a 的第 i 和第 j 个元素赋值为 x 和 y。ai,j=aj,i将数组 a 的第 i 和第 j 个元素的值互相交换。return2.3:关联数组关联数组是 Perl 语言中特有的一种数据结构，是一个功能强大的数组，他与普通数组的不同在于关联数组不是通过整数下标来索引，而是通过“键值”进行索引。使用关联数组需要在变量前面加上 % 号，关联数组的格式如：%ARRAY=(key1,value1,key2,value2,key3,value3); 上面每个 key 都对应着一个 value。关联数组是存在在另外一个存储空间中，不和简单变量以及数组相混淆。对关联数组的操作有如下规则： 在关联数组中增加、更改一对数据：ARRAYkey=value; 在关联数组ARRAY中加上一对 key-value，要在关联数组名称前加上 $ 号，而且 key 的名称要在 符号之间，最后再指定 key 所对应的 value 值。如果在这个关联数组中已经有这个 key 了, 就会更改这个 key 所对应的 value 。 keys(%array) 操作符可生成由关联数组 %array 中的所有当前关键字组成的列表。即返回奇数号元素(第1,3,5,7.个)的列表。values(%array) 操作符返回由关联数组 %array 中所有当前值组成的列表，即返回偶数个列表。echo(%array) 操作符返回由 关键字/值对 构成的元素对列表。对同一数组再进行此操作时返回下一对值直至结束。若没有更多的对时，echo() 返回空表。 (这在打印全部列表中很有用) 删除一对在关联数组中的数据：delete $ARRAYkey; delete 是 Perl 所提供的函数，作用是删除关联数组中的一个 key 以及这个 key 所对应的 value。使用方法是在 delete 函数之后，指定关联数组中要删除的 key 名称。下面是一些关联数组操作的例子：%test=(one,fang,two,tsinghua); $a=$testone;# $a等于fang$b=$testtwo;# $b等于tsinghua$testtwo=yes;# %test=(one,fang,two,yes)index=keys(%test);# index=(one,two)content=values(%test);# content=(fang,yes)($index,$content)=echo(%test);# 此时 $index 的值为 one，$content 的值为 fang，再执行一次 $index 为值为 two，$name 的值为 yesa=%test;# 将关联数组 test 指定给数组 a，这时 a=(one,fang,two,yes)%b=a;# 将数组 a 指定给关联数组 b，这时 %b=(one,fang,two,yes)delete $testone;# 将关联数组中 key 值为 one 的一对 key-value 删除，这时 %test=(two,yes)%x=();# 把 %x 关联数组置空return2.4其他运算符:perl中针对数字的运算符与C语言中基本一致;在针对字符串的操作时, 有一些不同于C语言的操作.赋值(Assignment)运算符.=$str1.=$str2;$str1=$str1.$str2;将$str1这个字符串再加上$str2这个字符串之后,再指派给$str1这个字符串x=$strx=$y;$str=$strx$y;重复$str字符串$y次,并反结果指派给str这个字符串算术(Arithmetic)运算符.$z=$x.$y;将$x字符串和$y字符串连接之后,再将结果指派给$z数值(Numeric Values)关系运算符$x$y如果$x大于$y,返回1的值,如果$x等于$y,否则返回0;如果 $x小于$y,则返回-1的值字符串(String Values)关系运算符符号范例说明gt$str1 gt $str2如果$str1大于$str2,返回1的值,否则返回0ge$str1 ge $str2如果$str1大于等于$str2,返回1的值,否则返回0lt$str1 lt $str2如果$str1小于$str2,返回1的值,否则返回0le$str1 le $str2如果$str1小于等于$str2,返回1的值,否则返回0eq$str1 ep $str2如果$str1等于$str2,返回1的值,否则返回0ne$str1 ne $str2如果$str1不等于$str2,返回1的值,否则返回0cmp$str1 cmp $str2如果$str1大于$str2,返回1的值,如果$str1等于$str2,返回0,如果$str1小于$str2,则返回-1的值Perl中比较特殊的运算符:指令:.区块运算符(Range Operator)说明:这个运算符是 Perl 语言中特有的运算符，是一个很实用的运算符。范例:digits=(1.9); # 此时 digits=(1,2,3,4,5,6,7,8,9);指令: 条件运算符(Conditional Operator)说明: （判别运算式? 运算式1: 运算式2）这个语法的意义和C语言一样：如果判别运算式的值是真(True)的话，则做运算式 1 的运算；如果判别运算式是假(False)的话，则做运算式 2 的运算。常用的文件数据(File test)运算符范例说明-r $file如果 $file 是可读取的话，返回 1-w $file如果 $file 是可写入的话，返回 1-x $file如果 $file 是可执行的话，返回 1-e $file如果 $file 存在的话，返回 1-s $file返回 $file 的文件大小(bytes)-f $file如果 $file 是正常文件的话，返回 1-T $file如果 $file 是文本文件的话，返回 1-B $file如果 $file 是Binary文件的话，返回 1-M $file返回 $file 文件最后一次更改时间到现在的日期数return2.5基本输入输出在 BASH 脚本程序中，我们用 read var 来实现从键盘的输入，用 echo $var 来实现输出。那么在 Perl 中将有一点变化。Perl 中将标准输入用关键词 表示；标准输出用 表示，标准错误输出用 表示。故而从标准输入读取数据可以写成：$var=; # 读取一行输入，并存入变量 $var 中。var=; # 读取多行输入，并存入数组 var 中。在 Perl 语言中，变量 $_ 是许多操作符的缺省变量。因此如果需要读入许多行并对每行分别处理一般这样写：while($_=) chop($_); # chop 调用用于去掉 $_ 变量中的最后一个字符（换行符）。# 处理$_(每一行) 或者可以简写为：while() chop; # 等同于chop($_) # 处理$_(每一行) 如果 括号之间没有任何字符，则表示从命令行所指示的文件中读取数据，看下面这个例子（read.pl）：#!/usr/bin/perl; while() print $_; 如果在命令行输入 $ perl test.pl test.pl 。这个程序将在屏幕上打印出文件 test.pl 的每一行。在前面的例子中我们已经看见，Perl 语言中向标准输出输出数据可以用 print 语句。我们在 print 语句中可以输出多个变量，变量之间用 , 分隔开来。如下面的例子：print 3,45*2,hello,2+2;上面的输出语句将给出 390hello4 的输出结果。除了 print 语句以外，Perl 中还提供了一个 printf 语句用于标准输出，不过 printf 更接近于 C 语言的 printf 函数，可以进行格式化的输出，如：printf %10s% 8d%8.2fn,$a,$b,$c;printf(%10s% 8d%8.2fn,$a,$b,$c); # 加上括号的 C 语言写法也是可以的。另外 print 和 printf 在输出数组变量的时候也是不同的，如下例：a = (1 , 2, 3); printf a; print n; print a; print n;输出的结果是：1123如果在 a 两边加上 ，则输出就都是 123了。return2.6分支循环控制结构perl中的分支循环控制结构与c语言中大部分都是相同的,再次不再赘述. 此处介绍几个可以使结构更加紧凑的符号:&、| 及 ? : 这些符号看上去像标点符号，或是表达式的一部分。和 C 语言中一样，他们在 Perl 语言中也可作为控制结构，而且更简洁，只是可读性差了很多。 比如说：if (判别表达式)为真时语句块;也可以写为：判别表达式 & 为真时的语句块 同样道理，unless(this)that 可替换为 this|that。? : 则可以这样使用：exp1?exp2:exp3这个式子表示：如果 exp1 为真则求 exp2 的值，否则求 exp3 的值。return2.7perl函数Perl 语言中有两种函数，一种是 Perl 自带的一些实用系统函数，如文件打开函数 open 等；另一种是用户自定义的函数，用户通过自己定义函数可以使得程序的结构化更加清晰。用户函数又称子程序(Subroutine)，在 Perl 中用下面的结构来定义用户函数：sub 子程序名语句块;这里的子程序名与变量的取名规则类似。与 BASH 程序不同，Perl 中的用户函数的定义可以位于程序的任何位置，比如说放在文件的未尾，而并不需要放在调用该函数的代码之前。如果两个子程序使用了相同的程序名，位置靠后的子程序将覆盖前面子程序。需要注意的是用户函数中的变量默认为全局变量，并不是像 C 语言中那样是局部变量，Perl 函数中的变量可以被其他程序段共享。如果希望定义局部变量，可以用下面两种方法来实现： local($a);my $a;另外用户函数的调用：通过在子程序前加“&”符号才可以，函数可在任一表达式内被调用。函数调用可以嵌套，即子程序中可以再调用另外的子程序，即可以程序员可以用 Perl 写出具有递归特性的代码。调用用户函数产生的结果称为返回值(return value)。返回值是每次函数被执行时，最后一个被执行到的表达式的计算结果。如： sub add_a_b$a+$b;函数最后一条表达式为 $a+$b，故返回值为 $a+$b 的计算结果。以下是调用情况：$a = 5;$b = 6;$c = &add_a_b; # $c 的值为 11$d = 5 * &add_a_b; # $d 的值为 5*11，即 55还有一个问题是，在 Perl 程序中如何向函数中传递参数呢？这是可以实现的，调用函数时，可以将参数依次放在函数名后面的 () 中，而在函数体中，系统默认数组 _ 中就按同样顺序存放着所有的参数。我们可以访问 _ 变量，从而确定参数的个数及其数值。仍以加法函数为例：sub add_a_b$_0+$_1;$c=&add_a_b(5,6); #$c的值为11$d=5*&add_a_b(2,3); #d的值为5*5即25更为奇特的是，这种方式可以实现变参数传递，即参数个数不确定的传递。C 语言也可以实现这种传递，如我们熟悉的 printf 函数，只是他们的实现机制不太一样，C 更深奥一些，此处就不多解释了。 sub add_all$sum=0; #将sum初始化foreach $_(_) #遍历参数列表$sum+=$_; #累加每个元素$sum; #返回sum即总和的值$a=&add_all(3,4,5); #$a的值为3+4+5即12$d=2*&add_all(1,2,3,4,5); #d的值为2*15即30return2.8常用系统调用下面将介绍一些 Perl 自身提供的一些标准系统函数，这些函数包括： print 、printf 、chop 、split 、keys 、values 、reverse 、sort 、length 、substr 、index 、push 、pop 、unshift 、shift 、join 、grep 、hex 、rand 、localtime 、die 、open 、close 、pack 、read 、exit。下面就来分别介绍他们。 -指令：print语法：print Filehandle LIST说明：这个 Filehandle 可以看作在 I(INPUT)/O(OUTPUT) 之间的一个桥梁，可以利用 FILEHANDLE 来做出数据读入写出的动作。STDIN 是代表从哪里输入数据，例如从电脑的键盘输入；STDOUT是代表从哪里输出数据，例如从电脑的屏幕输出；STDERR 是代表从哪里输出错误的数据，例如从电脑的屏幕输出。而在PERL语言中有三个标准FILEHANDLE： 1. STDIN(标准输入)：是代表 STDIN 的 FILEHANDLE 2. STDOUT(标准输出)：是代表 STDOUT 的 FILEHANDLE 3. STDERR(标准错误输出)：是代表 STDERR 的 FILEHANDLE 如果要使用其他 FILEHANDLE 的时候，就要先用 OPEN 这个函数来打开一个 FILEHANDLE，我们可以用 PRINT 这个函数将 LIST 中的数据输出给 FILEHANDLE。语法： print LIST 说明： 如果省略 Filehandle 的话，就会把 Filehandle 默认为 STDOUT。也就是会将 LIST 的数据内容显示在终端屏幕上。语法： print说明： 同时省略 Filehandle 和 LIST 的话，就会以 STDOUT 为 Filehandle，并会输出 $_ 这个系统内部变量的数据内容。如果 $_ 变量是一个空字符串的话，就会显示出一个空字符串。-指令： printf语法： printf Filehandle LIST说明： 在 Perl 语言中也提代 C 语言中 printf 的语法，用法和 C 语言中的用法一模一样。如果把 Filehandle 省略的话，也一样会把 STDOUT 当成是默认的 Filehandle。示例：printf(chomod %d %sn,711cgi); 会将chmod 711 cgi加上换行显示于屏幕上。 -指令：chop 语法：chop($url)说明：把最后一个字符删除。示例：$url= chop($url); 这时$url= 还可以简写成 chop($url= chop 函数一般用于去掉从键盘读入数据中的最后一个换行符。-指令：split语法：split(/pattern/,$text,limit) 其中/pattern/是文字处理的模式，而limit是代表要分割的个数，一般可以省略。说明：用一个指定的文字处理模式来分割 $text 字符串。示例：$text=Michael,Gevin,Mike; name=split(/,/,$text); # 这时 name=(Michael,Gevin,Mike); name=split(/,/,$text,2); # 这时 name=(Michael,Gevin);在传送CGI应用程序数据的时候会先将数据编码，其中会将FORM中第个数据字段 的数据内容用&这个符号隔开，所以在解码的时候就要以 & 这个符号为分割的字符，将每个数据字段分割出。而数据字段的名称和这个数据字段的值是用=这个符号来隔开，如果想取得数据字段的名称和所对应的值的话，就用要 = 这个符号来分割数据字段，-指令：keys语法：keys(%array)说明：取出关联数组 %ARRAY 中全部的 key。示例：%NAME=(1,mike,2,michael); readkey=keys(%NAMES); # 这时 readkey=(1,2); -指令：values语法：values(%array)说明：取出关联数组 %ARRAY 中全部的 value。示例：%NAMES=(1,mike,2,michael); readval=values(%NAMES); #这时 readval=(mike,michael); -指令：reverse语法：reverse(array)说明：将数组 array 中的元素由后到前重新排列。示例：back=(A,B,C,D,E); back=reverse(back); # 这时 back=(E,D,C,B,A); -指令：sort语法：sort(array)说明：将数组中的元素由小到大排序，如果要由大到小排序的话，要加上reverse这个函数。示例：abc=(d,b,c,a); abc=sort(abc); # 这时 abc=(a,b,c,d);abc=(reverse sortabc); # 这时abc=(d,c,b,a); 这个语法也可以写成 abc=(reverse sort(abc);number=(5,2,10); number=sort(number); # 上面示例用sort函数来排序数值的时，会出差错，因此要用下面到下面这一句。 number=(sort$a$bnumber); # 这时 number=(2,5,10); -指令：length语法：length($string)说明：求出字符串$string的字节(bytes)值。示例：$string=Perl5; $size=length($string); # 这时 $size=5; -指令：substr语法：substr($string,offset,length) offset代表起始字符的位置,length代表引用的字符串长度，如果省略length则代表从起始值到字符串的最后一个字符长度。而offset如果是负值的话，就会从字符串右边开始指定字符。示例：$s=substr(perl5,2,2); # 这时 $s=rl;$s=substr(perl5,2); # 这时 $s=rl5;$s=substr(perl5,-2,2); # 这时 $s=er; -指令：index语法：index($string,$substring,position) $substring是要寻找的字符；position代表从哪一个位置开始寻找，假如省略position就从头开始找起。说明：返回所要找寻的字符在一字符串$string中的位置，如果在字符串中找不到字符的话，则会返回-1这个 值。示例：$s=index(perl5,p); # 这时 $s=0$s=index(perl5,l,2); # 这时 $s=3$s=index(perl5,perl); # 这时 $s=-1 -指令：push语法：push(array,$string)说明：在数组array的最后附加新的元素 ($string)到数组array中。示例：array=(one,two); push(array,three); # 这时 array=(one,two,three) -指令：pop语法：pop(array)说明：将数组(array)的最后一个元素删除，并将删除的元素返回。示例：array=(one,two); $rm=pop(array); # 这时 array=(one);而$rm=two; -指令：unshift语法：unshift(array,$string) 说明：在数组array的第一个元素前附加新的元素$string到数组array中。 示例：array=(one,two); unshift(array,three); # 这时 array=(three,one,two) -指令：shift语法：shift(array)说明：将数组array的第一个元素删除，并将删除的元素返回。示例：array=(one,two); rm=shift(array); # 这时 array=(two);而$rm=one; -指令：join语法：join($string,array)说明：在一数组array的元素之间加上一指定的字符$string,并将结果返回。示例：array=(one,two,three);$total=join(：,array); 这时 $total=one：two：three; -指令：grep语法：grep(/pattern/,array)说明：将合文字处理模式(regular expression)的数组元素找出来。示例：array=(one,on,in);$count=grep(/on/,array); # 这时 $count=2result=grep(/on/,array); # 这时 result=(one,on); -指令：hex语法：hex($string)说明：将十六进制的数值转成十进制。示例：$decimal=hex(ff); 这时 $decimal=255; -指令：rand语法：rand($interger)说明：常和函数srand搭配来取得一随机数，如果没有先宣告stand函数的话，则取出的常数值是一个固定值。这个语法会返回一个介于 0 和$interger之间的数值，如果$interger省略的话，则会返回一个介于 0 和 1 的数值。示例：srand; # 要先调用一次srand函数，才能产生随机数的效果$int=rand(10); # $int的值会大于 0 而且小于 10 ，如果希望产生的乱数是整数的话，就要再加上int 这个函数，如下$int=int(rand(10); # $int的值是一个整数，且值在 0 和 9 之间 -指令：localtime语法：localtime(time)说明：可返回九个有关时间的元素，在写CGI应用程序的时候常会用到系统的时间，所以在此会详细介绍这个函数的用法。示例： ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); 其中： $sec 代表秒数 0,59、$min 代表分数 0,59、$hour 代表小时数 0,23、$mday 代表是在这个月的第几天 1,31、$mon 代表月数 0,11 因此要将 $mon 加 1 之后，才能符合实际情况、$year 从 1990 年算起的年数、$wday 从星期六算起，代表是在这周中的第几天 0-6、$yday 从一月一日算起，代表是在这年中的第几天 0,366、$isdst 只是一个 flag 知道这些变量之后，就可以在 CGI 应用程序中拿来应用了。此外，也可以用下面这一行指令在 UNIX 系统下取得系统的时间。为了避免错误发生，最好用绝对路径的方法来取得系统时间，如果绝对路径不清楚的话可以用 which data 这个指令来得知。$data=/usr/bin/data; 而在 Perl 5 版本中，也可以用下面这一行指令来取得系统时间。 $data=localtime(time); -指令：die语法：die LIST说明：会把LIST字符串显示出来，并退出程序。常常和 $! 这个代表错误信息变量一起使用。示例：open(FILE,$filename)|die 不能打开文件$!n; # 如果打开文件失败的话，就会显示出错误的信息，之后再退出程序。 -指令：open语法1：open(filehandle,$filename) 其中 $filename 是一个指定打开的文件名。说明：这是一个很常用的函数，可用于文件的打开(read only)。示例：$filename=usr/abc.txt;open(FILE,$filename)|die不能打开文件$filenamen; #将<file数据指定给纯变量$line(一行一行地)while($line=)print$line;close(file); 就会把abc.txt这个文件的内容显示出来。语法2：open(filehandle,$filename)说明：这个语法也可以打开一个存在的文件(read only)。示例：$filesname=usr/abc.txt;open(file, # 将 全部的数据内容都指定给数组 array close(file);print array; # 也会把abc.TXT这个文件的内容显示出来。语法3：open(filehandle,$filename)说明：建立一个新的文件(write only)；如果已经存在这个文件了，就会把旧文件名覆盖掉。并可用print filehandle的方式将数据存入打开的文件中。示例：$filename=/usr/abc.txt;open(file,$filename)|die不能打开文件$filenamen;print file this is a new line1n; # n是换行字符print file this is a new line2n;close(file); # 会将数据存在一个新文件中。语法4：open(filehandle,$filename)说明：数据用附加的方式定入一文件(write only)，如果指定的文件名不存在的话就会建立一个新的文件。示例：$filename=/path/abc.txt;open(file,$filename)|die不能打开文件$filenamen;print file this is a new line1n;print file this is a new line2n;close(file); # 会打数据附加(append)到一个文件(abc.txt)中。语法5：open(filehandle,|unix command)说明：就会把在filehandle的数据输入给unix的指令来作处理。示例：$mailprog=/usr/ucb/mail; # unix系统上的寄信程序(一定要加绝对路径)$who=mqingyi;$open(file,|$mailprog$who)|die打开失败n;print file I love you!n;print file I want to see you.n;close(file);该段代码通过 unix 系统的 mail 程序，将 FILE 这个 FILEHANDLE 的数据内容寄给 $who 这个变量所指定的收信人。 -指令：close用法：close(filehandle)说明：用 open 这个函数来打开一个 filehandle 之后，一定要用 close 批这个函数把所打开的 filehandle 关闭。示例：open(filehandle,$filename);close(filehandle);-指令：pack语法：pack(指定的格式,list)说明：pack这个函数会将一个 list 变成所指定的二进制数据格式。在CGI程序分割解码过程中，会用到 pack 这个函数。示例：$string=pack(c,65); #这时 $string=a; 将65这个ascii码转换成一个unsigned字符，其中c就是指定指转换成 unsigned 字符的意思。 -指令：read语法：read(filehandle,$string,length) 其中 length 是代表读入字符串的长度(bytes)。说明：用 read 这个函数把 filehandle 中的数据依指定的字符串长度读入之后指派给 $string 这个变量。在cgi程序分割解码过程中，如果 FORM 的传送方式是设定为POST的话，就会将传送的数据设定为标准输入，所以会将数据内容指定给 STDIN 这个标准输入的 filehandle ，而CGI环境变量 $envcontent_length 就是代表使用者送出数据内容的长度，因此我们要用 read 这个函数来取得使用者送出的数据内容。示例：read(stdin,$buffer,$envcontent_length); # 就会将 stdin 这个标准输入 filehandle 中的数据依指定的字符串长度读入，再指派给 $buffer 这个变量。 -指令：exit语法：exit说明：退出执行的程序。示例：printi love cgin; exit; # 表示显示完 i love cgi 以后，将退出这个程序。-return2.9文件操作大多数 Perl 程序都不是孤立的，它们与环境相互作用。很多的程序也需要通过文件操作实现数据的存贮和交换。文件句柄(file handle)是 Perl 程序中为程序和外部世界提供 I/O 连接的名称。建议在 Perl 程序中文件句柄全部使用大写字母，以示与变量等字符串的区别。特别地，可以将 STDIN/STDOUT/STDERR 也认为是 Perl 的文件句柄，分别代表 标准输入/标准输出/标准错误输出。打开及关闭文件 Perl的文件操作与C语言极为相似。如： open(FILENAME,abc.txt); 该调用为读文件打开，若为写文件而打开，需在文件名前加上大于号： open(FILENAME,abc.txt); 若要追加至文件尾，可在文件名前加上两个大于号： open(FILENAME,abc.txt); 以上三种open()格式在成功时返回真，失败时返回假。但程序中通常没有提示，出错时往往会被人们忽略。 通常当需要给出出错提示时，可加入die()函数。例如： open(OUTFILE,/tmp/outfile)| die 出错，不能建立/tmp/outfilen; 当 open 操作失败时，就会执行 die 给出出错提示。 对文件句柄的操作完成后，可以用 close 操作符关闭文件。如： close(OUTFILE);文件测试 Perl的文件操作也可以先测试文件是否存在，是否可读写等，这样操作起来会更安全。如： $x=abc.txt; if(-e $x) #abc.txt是否存在？ # 存在操作 else printf 文件不存在。n; -e 操作符用于测试文件或目录是否存在。 以下为所有文件测试操作符的清单：文件测试测试操作符提供的信息-r文件或目录可读-w文件或目录可写-x文件或目录执行-o文件或目录归用户所有-R文件或目录对真正用户可读-W文件或目录对真正用户可写-X文件或目录对真正用户执行-O文件或目录归真正用户所有-e文件或目录存在-z文件