Perl 教程 之 Perl 文件操作 11

Perl 文件操作

Perl 使用一种叫做文件句柄类型的变量来操作文件。

从文件读取或者写入数据需要使用文件句柄。

文件句柄(file handle)是一个 I/O 连接的名称。

文件信息

Perl 的文件操作也可以先测试文件是否存在，是否可读写等。

我们可以先创建 file1.txt 文件，内如如下：

$ cat file1.txt
www.baidu.com
实例

/usr/bin/perl

my $file = "/usr/test/baidu/file1.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";
}
执行以上程序，输出结果为：

file1.txt 信息：是一个文本文件, 15 字节