perl-追加到文件的最后一行 [英] Perl - Append to last line of a file

问题描述

我是Perl新手，有人能告诉我如何根据当前值追加输出文件的最后一个条目吗？ 例如，我正在生成一个输出txt文件，比如

a b c d 10

通过一些处理，我得到了值20，现在我希望将此值20赋值并与前一集对齐，前一集是

a b c d 10

并将其设置为

a b c d 10 20

推荐答案

假定最后一行没有换行符

use strict;
use warnings;

open(my $fd, ">>file.txt");
print $fd " 20";

如果最后一行已有换行符，则输出将在下一行结束，即

a b c d 10
 20

在这两种情况下都可以使用的较长版本为

use strict;
use warnings;

open(my $fd, "file.txt");
my $previous;
while (<$fd>) {
    print $previous if ($previous);
    $previous = $_;
}

chomp($previous);
print "$previous 20
";

但是，此版本不修改原始文件。

这篇关于perl-追加到文件的最后一行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！