perl学习笔记10 z

1．  文件检测和sysopen

Perl提供了文件检测功能，使程序能发现磁盘上的文件和目录的信息。

 

检测项	含义	检测项	含义
-r	文件或目录是否可读	-w	文件或目录是否可写
-e	文件或目录是否存在	-z	文件或目录存在且大小为0
-o	文件或目录归用户所有	-R	文件或目录对真正的用户可读
-W	文件或目录对真正的用户可写	-X	文件或目录对真正的用户可执行
-O	文件或目录对真正的用户所有	-l	文件为符号链接
-s	文件存在且大小非零，返回文件大小的字节数	-f	文件是普通文件
-d	文件是目录	-T	文件是文本文件
-B	文件是二进制文件	-M	距离上次文件被修改的年限
-A	距离上次文件被访问的年限	-C	距离创建文件的年限
-x	文件是否可执行	-p	文件为命名管道（FIFO）
-S	文件为一个套口（socket）	-b	文件为块特殊文件
-c	文件为字符特殊文件	-t	打开tty控制台的文件句柄
-u	文件或目录是设置用户ID	-g	文件或目录是设置组ID

             

              if  ( -e  $file )           #检测$file变量中的文件是否存在

 

函数sysopen带有3个或4个参数。前两个参数是一个文件句柄和文件名。文件打开方式作为sysopen的第三个参数。通常，第3个参数由几个标志位组成，这些标志位用竖线“|”隔开，从而指定文件的打开方式。这些标志是从fcntl模块引入的。第4个参数是可选的，它设置了文件的访问许可权限，为八进制属性值(0666表示 数据文件， 0777表示程序)。如果文件可以被打开，sysopen() 返回true，如果打开失败， 则返回false。

 

标志	含义
O_RDONLY	打开文件，只读
O_WRONLY	打开文件，只写
O_RDWR	打开文件，可读、写
O_CREAT	如温家不存在，则新建该文件
O_APPEND	追加到文件末尾
O_TRUNC	裁减文件的已有内容
O_NONBLOCK	非阻赛访问
O_EXCL	如文件已存在，则不打开文件 （Fail if the file already exists）

 

use  Fcntl;

sysopen  ( FH, $filename, O_RDWR|O_CREAT, 0666 )

or  die "Can't open $filename for reading/writing/creating : $!";

 

2．  访问许可权限

chmod函数语法如下：

              chmod  ( mode, fileList)

其中，mode参数指定了fileList中列出的每个文件的访问权限，fileList中文件名列表是由逗号分隔的。mode参数是由4位8进制的数字组成，第一位数字应该是0。

 

访问权限	允许
0	用户不能进行任何操作
1	用户可执行文件
2	用户可写文件
3	用户可执行并写文件
4	用户可读文件
5	用户可读并执行文件
6	用户可读并写文件
7	用户可读、写并执行文件

 

              chmod  ( 0777, myfile.pl )

 

3．  文件操作

Ø         函数rename

语法格式如下：

             rename  ( filename, newFileName )

将文件filename改名为newFileName。此函数如果操作成功则返回1，不成功则返回0。

在使用rename函数前应先检查新文件名是否已存在。

 

Ø         函数unlink

语法格式如下：

              unlink  ( listOffFiles )

这个函数可以删除列表中的文件，其返回值是被成功删除文件的数目。如果没有给出文件名，则将默认删除特殊变量$_所指定的文件。

 

Ø         函数chown

语法格式如下：

              chown  ( userID, groupID, fileList )

这个函数用于改变文件的所有权。若只想改变一个所有权属性（用户或组），就用-1来替代另外那个被忽略的参数。函数返回成功改变所有权文件的数目。注意，用户ID和组ID必须采用数字形式。

 

Ø         函数utime

语法格式如下：

             utime  ( creation, lastModified, fileList )

这个函数用于修改文件的时间戳，每个文件都包含3个时间戳，分别代表创建时间，最后修改时间和最后访问的时间。改变前两项中的任何一个都会改变第三项。修改文件的时间戳，并返回修改成功的数目。时间戳时一段“时间的间隔值”——即从 1970 年 1 月 1 日 零时起计算秒数。

 

time函数返回的就是从 1970 年 1 月 1 日 到当前的时间间隔值。time函数不带参数。

             time （）

如需要将文件的时间戳更改为3天前的值，

             $newtime  =  ( time () – (3600*72) ) ;

             utime  ( $newtime, $newtime, ‘file’ );

 

4．  硬链接和符号链接

一个特定文件可能有不止一个名字。在perl中，文件的替代名字可以被创建、销毁、更改、打开等。这种替代名字的概念被称为链接。有两种类型的链接：硬链接和符号链接。

硬链接可以被看作在硬盘上的一个文件的名字。可以使用多个硬链接为单个文件提供多个名字。操作系统要跟踪任何一个给定文件的硬链接数目。如果硬链接数目为0，并且文件已经被关闭，则表明文件被删除。硬链接不能将一个文件链接到不同的文件系统中。且不能为目录创建硬链接。

符号链接（symlink）是一个特殊的文件，它指向的是另一个文件。当打开一个符号链接后，操作系统跟踪这个符号链接，并打开它所指向的文件。符号链接不计入操作系统的链接计数中。符号链接可以指向不存在的文件，也可以指向不在当前文件系统和当前目录中的文件。删除一个文件的所有符号链接并不会导致删除该文件。

在perl中，使用link函数创建硬链接，这个函数带有两个参数：原始文件名和新硬链接名。使用symlink函数创建符号链接，这个函数也有两个参数：原始文件名（并不需要是已经存在的，而且可以是一个目录名）和符号链接名。可以使用readlink函数来跟踪符号链接。unlink用于删除一个文件的全部现有硬链接，导致文件被删除。

 

5．  文件通配

perl通过两种方式进行文件通配。

如果把文件名用<>括起来，perl就将扩展该通配符进行处理。在标量使用场合中，perl返回的是与此方式匹配的第一个文件（如果存在这样的文件）。在列表环境下，perl返回的时与此番是匹配的所有文件。

使用内建函数glob也可以完成这个功能。函数形式为 glob ( “ *.txt ”)。用于通配的文件名也可以使用变量指定。如下所示：

              $glob = “ *.txt “;

              @files = glob ( $glob );

 

6．  目录句柄和操作

目录句柄可以被打开、关闭和读取，但却不能使用目录句柄来写信息。要打开并创建一个目录句柄，需要给opendir函数传递两个参数：目录句柄和目录名。closedir函数用于关闭目录句柄。

一旦打开目录句柄，就可以使用readdir函数遍历该目录，并返回存储在目录中所有文件和目录。函数rewinddir用于复位目录句柄，并指向该目录中的第一项。

可以使用mkdir函数创建新目录。mkdir函数有两个参数：新目录的名称和目录许可权限。改变当前目录使用chdir函数实现。使用remdir函数删除目录。

 

特殊变量$^0中包含了该程序运行的操作系统的名字。使用$^0特殊变量可以用来判断操作系统类型，从而能执行与操作相对应的代码。

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>