先提供一个用 Unix 命令列工具的方法
请慎重使用，sed 那行真的会移除最后一行
$ tail -n 1 old-file > new-file
$ sed -i '$ d' old-file
然后把这两行自行重新组合成 shell script 即可
如果要用 Perl，可以用 Tie::File 模组
同样需小心使用，真的会移除最后一行
use Tie::File;
my $file = 'old-file';
tie @lines, Tie::File, $file or die "Can't update $file: $!\n";
print $lines[-1], "\n"; # Or redirect to another file
delete $lines[-1];
摘自 Perl Cookbook，可见
http://docstore.mik.ua/orelly/perl4/cook/ch08_11.htm
※ 引述《jasonlee1001 (Jason)》之铭言：
: 请问要怎样直接取出一个档案的最后一行
: 然后把这一行印到另一个档案
: 并且把原先的档案的最后一行删除后更新呢?
: 谢谢.