Perl入门学习（十一）文件操作

1、open 函数

使用open函数打开文件。示例如下：

#!/usr/bin/perl
open(DATA, "<file.txt") or die "file.txt 文件无法打开, $!";
while(<DATA>){
   print "$_";
}

手动输入文件名，示例如下：

#!/usr/bin/perl
open my $DATA, "<"，$ARGV[0] or die "file.txt 文件无法打开, $!";
while(<$DATA>){
   print "$_";
}

其中DATA为文件句柄，在程序中代表file.txt，“<”表示只读文件。

note：文件打开方式，如下表：。

模式	描述
< 或 r	只读方式打开，将文件指针指向文件头。
> 或 w	写入方式打开，将文件指针指向文件头并将文件大小截为零。如果文件不存在则尝试创建。
>> 或 a	写入方式打开，将文件指针指向文件末尾。如果文件不存在则尝试创建。
+< 或 r+	读写方式打开，将文件指针指向文件头。
+> 或 w+	读写方式打开，将文件指针指向文件头并将文件大小截为零。如果文件不存在则尝试创建。
+>> 或 a+	读写方式打开，将文件指针指向文件末尾。如果文件不存在则尝试创建。

2、close 函数

文件使用完，需要用close函数关闭文件，格式如下：

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

3、读写文件

向文件中写入信息有以下几种方式：

3.1 <> 操作符

<>可以返回文件中的每一行，示例如下：

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

如果输入文件内容为：

1
2
3

那输出结果同样是：

1
2
3

3.2 print函数

向文件中写入数据，同样输出内容也可以用print，语法如下：

print FILEHANDLE LIST ## FILEHANDLE为文件句柄 LIST为输出内容。

3.3 文件重命名

rename将已存在的文件重命名。示例如下:

#!/usr/bin/perl
rename ("/usr/it/test/file1.txt", "/usr/it/test/file2.txt" );

3.4 删除文件

使用unlink删除文件。示例如下：

#!/usr/bin/perl
unlink ("/usr/it/test/file1.txt");