使用perl添加页脚

我有一个小情况。首先，我有一个拆分文件的列表。Xaa到Xal。我的目标是为每个页面添加页眉和页脚。我想出了如何添加标题。那部分已经完成了。现在我只需要知道如何插入页脚。有什么建议吗？这是剧本

open(M,"<","xak.txt");
@m = <M>;
close(M);
open(M,">","xak.txt");
print M "LINE: while (<>) {\n";
print M @m;
close(M);

---

在我的文件的底部，或更多\t打印\n} 。我觉得我很接近，但我只需要知道在文件顶部添加内容与在底部添加内容的区别。

只需在数组之后添加即可：

open(M,"<","xak.txt");
@m = <M>;
close(M);
open(M,">","xak.txt");
print M "LINE: while (<>) {\n";
print M @m;
print M "\tprint;\n}";
close(M);

---

这看起来像是您试图对其应用黑客攻击的Perl代码。你知道你可以简单地使用-p开关来完成你想要的吗？换句话说，-p开关在程序周围放置一个while+continue{print}循环，例如perl-pxaa。

open(M,"<","xak.txt");
@m = <M>;
close(M);
open(M,">","xak.txt");
print M "LINE: while (<>) {\n";
print M @m;
print M "\tprint;\n}";
close(M);