这部分Perl 教程中我们会看到 如何使用Perl追加写文件。在之前我们学习了写文件。固然可以从零开始新建文件,但是总会有需求:在保证原文件不变的情况下向文件末尾追加内容。最突出的一个情况就是写日志文件。

调用

open(my $fh, '>', 'report.txt') or die ...

使用>符号打开文件会删除原有的内容。

如果想要在文件的末尾追加操作,可以使用两个大于号>>,例如:

open(my $fh, '>>', 'report.txt') or die ...

调用这个函数会以追加模式打开文件。这样文件内容会原封不动,任何print()say()向文件输出的内容会添加在文件末尾。

完整示例:

use strict;
use warnings;
use 5.010;

my $filename = 'report.txt';
open(my $fh, '>>', $filename) or die "Could not open file '$filename' $!";
say $fh "My first report generated by perl";
close $fh;
say 'done';

如果多次执行该脚本,可以观察到文件的增长。每次执行脚本就会向文件添加新的一行。