Perl - 附加到文件的最后一行（同一行）

有人可以让我知道如何根据当前值附加输出文件的最后一个条目吗？

例如。我正在生成一个输出.txt文件，说：

a b c d 10

通过一些处理我得到了价值20现在我希望分配该值并与之前的设置对齐，使其：

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\n";

但是，这个版本不会修改原始文件。