正文
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)。
下表列出了不同的访问模式：
| 模式 | 描述 |
|---|---|
| < 或 r | 只读方式打开，将文件指针指向文件头。 |
| > 或 w | 写入方式打开，将文件指针指向文件头并将文件大小截为零。如果文件不存在则尝试创建之。 |
| >> 或 a | 写入方式打开，将文件指针指向文件末尾。如果文件不存在则尝试创建之。 |
| +< 或 r+ | 读写方式打开，将文件指针指向文件头。 |
| +> 或 w+ | 读写方式打开，将文件指针指向文件头并将文件大小截为零。如果文件不存在则尝试创建之。 |
| +>> 或 a+ | 读写方式打开，将文件指针指向文件末尾。如果文件不存在则尝试创建之。 |
open函数
#！usr/bin/perl -W use strict;
use Spreadsheet::ParseExcel; use utf8;
#引入utf8模块 脚本内的字符串使用utf8作为编码格式
binmode(STDOUT,":encoding(gbk)");
#标准输出使用gbk作为编码格式，也可以把gbk改为gb2312
binmode(STDIN,":encoding(gbk)");
#如果涉及到输入流，例如读文件，不加这条读中文文件会出现乱码
binmode(STDERR,":encoding(gbk)");
#如果异常错误中的字符串有中文，请加上STDERR，否则也会出现乱码 #以写的方式打开文件,如果没有该文件，尝试创建该文件,如果文件存在，那么文件内容被清空
if(open(data, ">test1.txt"))
{
print "以写的方式打开文件成功\n";
#写入数据到txt文件中
print data "写入数据到test1中\n";
close(data);
}
else
{
die "test1.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory
} #以读的方式打开文件，如果没有该文件，不会创建该文件
if(open(data, "<test2.txt"))
{
print "以读的方式打开文件成功\n";
#逐行读取文件数据，通过文件句柄操作符
while(<data>)
{
print "$_";
}
#使用完后要关闭文件
close(data) || die "无法关闭文件";
}
else
{
die "test2.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory
} #读写方式打开文件，如果没有该文件，就会创建该文件，如果文件存在，文件内容会被清空
if(open(data, "+>test3.txt"))
{
print "以读写的方式打开文件成功\n";
#使用完后要关闭文件
close(data) || die "无法关闭文件";
}
else
{
die "test3.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory
} #读写方式打开文件，如果文件不存在，不会被创建。如果文件已经存在，原来的数据不会被清除。
if(open(data, "+<test4.txt"))
{
print "以读写的方式打开文件成功\n"; #
#使用完后要关闭文件
close(data) || die "无法关闭文件";
}
else
{
die "test4.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory
} #如果要向文件追加数据，则在追加数据之前只需要以追加的方式打开文件，文件内容不会被清空，而是向尾部追加数据，文件不存在就会被创建
if(open(data,">>test5.txt"))
{
print "以追加的方式打开文件成功\n";
#使用完后要关闭文件
close(data) || die "无法关闭文件";
}
else
{
die "test5.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory
} #如果需要读取追加的文件，文件不存在就会被创建
if(open(data,"+>>test6.txt"))
{
print "以读取追加文件的方式打开文件成功\n";
#追加内容到文件中
print data "追加内容到test5中";
#使用完后要关闭文件
close(data) || die "无法关闭文件";
}
else
{
die "test6.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory
}
sysopen函数
类似于 open 函数，只是它们的参数形式不一样。
以下实例是以读写(+<filename)的方式打开文件：
sysopen(DATA, "file.txt", O_RDWR);
如果需要在更新文件前清空文件，则写法如下：
sysopen(DATA, "file.txt", O_RDWR|O_TRUNC );
你可以使用 O_CREAT 来创建一个新的文件， O_WRONLY 为只写模式， O_RDONLY 为只读模式。
The PERMS 参数为八进制属性值，表示文件创建后的权限，默认为 0x666 。
下表列出了可能的模式值：
| 模式 | 描述 |
|---|---|
| O_RDWR | 读写方式打开，将文件指针指向文件头。 |
| O_RDONLY | 只读方式打开，将文件指针指向文件头。 |
| O_WRONLY | 写入方式打开，将文件指针指向文件头并将文件大小截为零。如果文件不存在则尝试创建之。 |
| O_CREAT | 创建文件 |
| O_APPEND | 追加文件 |
| O_TRUNC | 将文件大小截为零 |
| O_EXCL | 如果使用O_CREAT时文件存在,就返回错误信息,它可以测试文件是否存在 |
| O_NONBLOCK | 非阻塞I/O使我们的操作要么成功，要么立即返回错误，不被阻塞。 |
getc 函数
getc 函数从指定的 FILEHANDLE 返回单一的字符（还有就是用于键盘输入一个字符），如果没指定返回 STDIN：
#以读的方式打开文件，如果没有该文件，不会创建该文件
if(open(data, "<test2.txt"))
{
print "以读的方式打开文件成功\n";
#从键盘返回一个字符
my $key = getc(STDIN);
print "Entered value is $key\n";
#使用完后要关闭文件
close(data) || die "无法关闭文件";
}
输出结果为
D:\>perl FileOperation.pl
以读的方式打开文件成功
4
Entered value is 4
read 函数
read 函数用于从缓冲区的文件句柄读取信息。
这个函数用于从文件读取二进制数据。
read FILEHANDLE, SCALAR, LENGTH, OFFSET
read FILEHANDLE, SCALAR, LENGTH
参数说明:
- FILEHANDLE：文件句柄，用于存放一个文件唯一标识符。
- SCALAR：存贮结果，如果没有指定OFFSET，数据将放在SCALAR的开头。否则数据放在SCALAR中的OFFSET字节之后。
- LENGTH：读取的内容长度。
- OFFSET：偏移量。
如果读取成功返回读取的字节数，如果在文件结尾返回 0，如果发生错误返回 undef。
if(open(data, "<test2.txt"))
{
print "以读的方式打开文件成功\n";
my $SCALAR;
read(data, $SCALAR, 2, 0);#读取的数据保存在SCALAR中，读取的长度为2
print "$SCALAR";
#使用完后要关闭文件
close(data) || die "无法关闭文件";
}
拷贝文件
以下代码将test1的文件内容拷贝到test2中去
#!/usr/bin/perl # 只读方式打开文件
open(data1, "<test1.txt"); # 打开新文件并写入
open(data2, ">test2.txt"); # 拷贝数据
while(<data1>)
{
print data2 $_;
}
print "拷贝数据成功\n";
close( data1 );
close( data2 );
文件重命名
将test1.txt重命名为test1_Rename.txt
#文件重命名
rename("D:/test1.txt","D:/test1_Rename.txt");
删除文件
#删除文件
unlink("D:/test1_Rename.txt");
tell 函数
tell 函数用于获取文件位置：如果指定 FILEHANDLE 该函数返回文件指针的位置，以字节计。如果没有指定则返回默认选取的文件句柄。
if(open(data1, "+<test1.txt"))
{
my $position=tell data1;
print "position:$position";#输出文件指针的位置0
close data1;
}
