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

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

2025-05-11 19:44:33

推荐回答（1个）

回答1：

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