追加写文件
调用
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';
如果多次执行该脚本,可以观察到文件的增长。每次执行脚本就会向文件添加新的一行。
Published on 2013-04-21
If you have any comments or questions, feel free to post them on the source of this page in GitHub. Source on GitHub.
Comment on this post