Question

perl如何实现将文本文件的最后一行插到第一行？最好是脚本做的。

Answer 1

#!/usr/bin/perl
# 以读取方式打开文件
open FILE_HANDLE, "< your_file";
# 读出文件所有内容
my @entire_lines = <FILE_HANDLE>;
# 关闭文件
close FILE_HANDLE;
# 将最后一行放到第一行
unshift @entire_lines, pop @entire_lines;
# 以写入方式打开文件
open FILE_HANDLE, "> your_file";
# 写入
print FILE_HANDLE @entire_lines;
关闭文件
close FILE_HANDLE;