Perl 文件操作.pdfVIP

Perl ⽂件操作 Perl ⽂件操作 Perl 使⽤⼀种叫做⽂件句柄类型的变量来操作⽂件。 从⽂件读取或者写⼊数据需要使⽤⽂件句柄。 ⽂件句柄(file handle)是⼀ I/O连接的名称。 Perl提供了三种⽂件句柄:STDIN ,STDOUT ,STDERR ，分别代表标准输⼊、标准输出和 标准出错输出。 Perl 中打开⽂件可以使⽤以下⽅式： open FILEHANDLE, EXPR open FILEHANDLE sysopen FILEHANDLE, FILENAME, MODE, PERMS sysopen FILEHANDLE, FILENAME, MODE 参数说明: FILEHANDLE ：⽂件句柄，⽤于存放⼀ ⽂件唯⼀标识符。 EXPR ：⽂件名及⽂件访问类型组成的表达式。 MODE ：⽂件访问类型。 PERMS ：访问权限位( ermission bits) 。 Open 函数 以下代码我们使⽤ o en 函数以只读的⽅式()打开⽂件 file .txt ： open(DATA, file.t t); 表⽰只读⽅式。 代码中的 DATA 为⽂件句柄⽤于读取⽂件，以下实例将打开⽂件并将⽂件内容输出： # !/usr/bin/perl open(DATA, file.t t) or die file.t t ⽂件⽆法打开, $!; while(DATA){ print $_; } 以下代码以写⼊( )的⽅式打开⽂件 file .txt: open(DATA, file.t t) or die file.t t ⽂件⽆法打开, $!; 表⽰写⼊⽅式。 如果你需要以读写⽅式打开⽂件，可以在 或 字符前添加 + 号： open(DATA, +file.t t); or die file.t t ⽂件⽆法打开, $!; 这种⽅式不会删除⽂件原来的内容，如果要删除，格式如下所⽰： open DATA, +file.t t or die file.t t ⽂件⽆法打开, $!; 如果要向⽂件中追加数据，则在追加数据之前，只需要以追加⽅式打开⽂件即可： open(DATA,file.t t) || die file.t t ⽂件⽆法打开, $!; 表⽰向现有⽂件的尾部追加数据，如果需要读取要追加的⽂件内容可以添加 + 号： open(DATA,+file.t t) || die file.t t ⽂件⽆法打开, $!; 下表列出了不同的访问模式： 模式 描述 或 r 只读⽅式打开，将⽂件指针指向⽂件头。 写⼊⽅式打开，将⽂件指针指向⽂件头并将⽂件⼤⼩截为零。如果 或 w ⽂件不存在则尝试创建之。 写⼊⽅式打开，将⽂件指针指向⽂件末尾。如果⽂件不存在则尝试 或 a 创建之。 + 或 r+ 读写⽅式打开，将⽂件指针指向⽂件头。 读写⽅式打开，将⽂件指针指向⽂件头并将⽂件⼤⼩截为零。如果 + 或 w+ ⽂件不存在则尝试创建之。 读写⽅式打开，将⽂件指针指向⽂件末尾。如果⽂件不存在则尝试 + 或 a+ 创建之。 Sysopen函数 sysopen 函数类似于 o en 函数，只是它们的参数形式不⼀样。 以下实例是以读写(+filename)的⽅式打开⽂件： sysopen(DATA, file.t t, O_RDWR); 如果需要在更新⽂件前清空⽂件，则写法如下： sysopen(DATA, file.t t, O_RDWR|O_TRUNC ); 你可以使⽤ O_CREAT 来创建⼀ 新的⽂件， O_WRONLY 为只写模式， O_RDONLY 为只读模式。 The PERMS 参数为⼋进制属性值，表⽰⽂件创建后的权限，默认为 0x666 。 下表列出了可能的模式值： 模式 描述 O_RDWR 读写⽅式打开，将⽂件指针指向⽂件头。 O_RDONLY