18、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：访问权限位(permission bits)

open 函数

open 函数用来打开一个文件

下面的代码使用 open 函数以只读的方式(<)打开文件 file.txt

open(DATA, "<file.txt");

< 表示只读方式

代码中的 DATA 为文件句柄用于读取文件，以下范例将打开文件并将文件内容输出：

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut
open(DATA, "<file.txt") or die "file.txt 文件无法打开, $!";

while(<DATA>){
   print "$_";
}

以下代码以写入( >`)的方式打开文件 file.txt:

open(DATA, ">file.txt") or die "file.txt 文件无法打开, $!";

> 表示写入方式

如果你需要以读写方式打开文件，可以在 >或< 字符前添加 + 号：

open(DATA, "+<file.txt"); or die "file.txt 文件无法打开, $!";

这种方式不会删除文件原来的内容，如果要删除，格式如下所示：

open DATA, "+>file.txt" or die "file.txt 文件无法打开, $!";

如果要向文件中追加数据，则在追加数据之前，只需要以追加方式打开文件即可：

open(DATA,">>file.txt") || die "file.txt 文件无法打开, $!";

>>` 表示向现有文件的尾部追加数据，如果需要读取要追加的文件内容可以添加 + 号

open(DATA,"+>>file.txt") || die "file.txt 文件无法打开, $!";

下表列出了不同的访问模式

sysopen函数

sysopen 函数类似于 open 函数，只是它们的参数形式不一样

下面的代码以读写( +`<filename ) 的方式打开文件：

sysopen(DATA, "file.txt", O_RDWR);

如果需要在更新文件前清空文件，则代码如下：

sysopen(DATA, "file.txt", O_RDWR|O_TRUNC );

使用O_CREAT 可以创建一个新的文件， O_WRONLY 为只写模式， O_RDONLY 为只读模式

PERMS 参数是八进制属性值，表示文件创建后的权限，默认为 0x666

下表列出了可能的模式值

close 函数

在文件使用完后，要关闭文件，刷新与文件句柄相关联的输入输出缓冲区

close 函数可以用来关闭文件

close 函数语法如下：

close FILEHANDLE
close

FILEHANDLE 为指定的文件句柄，如果成功关闭则返回 true

通常我们使用以下代码来关闭一个文件句柄

close(FILEHANDLE) || die "无法关闭文件";

读写文件

向文件读写信息有以下几种不同的方式：

<FILEHANDL> 操作符

从打开的文件句柄读取信息的主要方法是 <FILEHANDLE> 操作符 在标量上下文中，它从文件句柄返回单一行

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut
print "DDKK.COM 弟弟快看，程序员编程资料站网址?\n";
$name = <STDIN>;
print "网址：$name\n";

运行以上范例，会显示一些提示信息，当我们输入网址后 print 语句就会输出：

$ perl main.pl
DDKK.COM 弟弟快看，程序员编程资料站网址?  
www.ddkk.com   # 用户输入网址
网址：www.ddkk.com

使用<FILEHANDLE>操作符时，它会返回文件句柄中每一行的列表

因此我们可以导入所有的行到数组中

新建一个文件名为 demo.txt，内容如下：

$ cat demo.txt
message:www.ddkk.com
age:29

现在读取 demo.txt 并将每一行放到 @lines 数组中：

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut

open(DATA,"<demo.txt") or die "无法打开数据";
@lines = <DATA>;
print @lines;    # 输出数组内容
close(DATA);

运行以上范例，输出结果为:

$ perl main.pl
message:www.ddkk.com
age:29

getc 函数

getc 函数从指定的 FILEHANDLE 返回单一的字符，如果没指定返回 STDIN：

getc FILEHANDLE
getc

如果发生错误，或在文件句柄在文件末尾，则返回 undef

read 函数

read 函数用于从缓冲区的文件句柄读取信息

read 函数用于从文件读取二进制数据

read 函数语法格式如下：

read FILEHANDLE, SCALAR, LENGTH, OFFSET
read FILEHANDLE, SCALAR, LENGTH

参数说明:

• FILEHANDLE：文件句柄，用于存放一个文件唯一标识符。
• SCALAR：存贮结果，如果没有指定OFFSET，数据将放在SCALAR的开头。否则数据放在SCALAR中的OFFSET字节之后。
• LENGTH：读取的内容长度。
• OFFSET：偏移量

返回值

• 如果读取成功返回读取的字节数
• 如果在文件结尾返回 0
• 如果发生错误返回 undef

print 函数

print 函数用来将数据输出到输出设备中

print FILEHANDLE LIST
print LIST
print

利用文件句柄和 print 函数可以把程序运行的结果发给输出设备(STDOUT：标准输出)

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut
print "Hello World!\n";

文件拷贝

将一个文件拷贝为另一个文件，需要先打开已经存在的文件，读取它的每一行，然后写入到新的文件中

下面的范例，打开一个已存在的文件 demo.txt，并读取它的每一行写入到文件 demo1.txt 中

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut
# 只读方式打开文件
open(DATA1, "<demo.txt");

# 打开新文件并写入
open(DATA2, ">demo1.txt");

# 拷贝数据
while(<DATA1>)
{
   print DATA2 $_;
}
close( DATA1 );
close( DATA2 );

文件重命名

rename 函数可以用来重命名一个文件

下面的代码将当前目录下已存在的文件 demo1.txt 重命名为 demo2.txt

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut

rename ("demo1.txt", "demo2.txt" );

删除文件

unlink 函数可以用来删除文件

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut

unLink("demo.txt");

指定文件位置

Perl 中可以使用 tell 函数来获取文件指针当前的位置 可以使用 seek 函数可以用来指定文件指针的位置

tell 函数

tell 函数用于获取文件位置

tell 函数语法格式如下所示：

tell FILEHANDLE
tell

如果指定 FILEHANDLE 该函数返回文件指针的位置，以字节计。 如果没有指定则返回默认选取的文件句柄。

seek 函数

seek() 函数是通过文件句柄来移动文件读写指针的方式来读取或写入文件的 seek() 函数以字节为单位进行读取和写入

seek() 函数的语法格式如下所示

seek FILEHANDLE, POSITION, WHENCE 

参数说明

FILEHANDLE

文件句柄，用于存放一个文件唯一标识符

POSITION

表示文件句柄(读写位置指针)要移动的字节数

WHENCE

表示文件句柄(读写位置指针)开始移动时的起始位置，可以取的值为0、1、2；分别表示文件开头、当前位置和文件尾

下面的代码从文件开头读取 256 个字节：

seek DATA, 256, 0;

文件信息

在操作文件之前，我们可以先测试文件是否存在，是否可读写等

我们先创建一个名为 demo.txt 的文件，内容如下： 我么可以先创建 file1.txt 文件，内如如下：

$ cat demo.txt
message:www.ddkk.com
age:29

然后用下面的代码来判断 demo.txt 文件的各种信息

#!/usr/bin/perl

=pod

  file: mail.pl
  author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)

  Copyright © 2015-2065 www.ddkk.com. All rights reserved.

=cut
my $file = "demo.txt";
my (@description, $size);
if (-e $file)
{
    push @description, '是一个二进制文件' if (-B _);
    push @description, '是一个socket(套接字)' if (-S _);
    push @description, '是一个文本文件' if (-T _);
    push @description, '是一个特殊块文件' if (-b _);
    push @description, '是一个特殊字符文件' if (-c _);
    push @description, '是一个目录' if (-d _);
    push @description, '文件存在' if (-x _);
    push @description, (($size = -s _)) ? "$size 字节" : '空';

    print "$file 信息：", join(', ',@description),"\n";
}

运行以上范例，输出结果为:

$ perl main.pl
demo.txt 信息：是一个文本文件, 27 字节

下表是 Perl 中的文件测试操作符