使用perl添加頁腳

Question

我有一個小小的情況。首先，我有一個分割文件列表。 Xaa通過Xal。我的目標是爲每一個添加頁眉和頁腳。我想出瞭如何添加標題。那部分完成了。現在我只需要知道如何插入頁腳。有什麼建議麼？這裏是腳本。

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

此腳本完美地添加了標頭LINE: while (<>) {\n。我現在想簡單地在我的文件的底部添加

print; 
} 

，或者更使\tprint;\n}。我覺得我很接近，但我只需要知道在底部添加文件頂部的差異。

Answer 1

只是將它加入後陣：

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);