请教如何修改文件的最后一行

yy_lc

我现在的方法是将文件句柄放到数组中修改最后一个[-1]，想请问各位高手是否有更有效的方法？谢谢！

nkcsx

版面搜索

Perl        请教如何修改文件的最后一行        yy_lc        0        28        2007-06-21 23:56
Perl        请问如何从文件的最后一行向第一行读起？        hotren        3        152        2007-06-13 11:28
Perl        我在读文本文件的时候，如果文件最后一行没有回车/换行，那么可能会不到最后一行        ste2008        3        196        2007-03-05 16:09
Perl        请问：如何读取文件的最后一行？        youhaorenshi        11        510        2005-08-24 14:24

jigloo

呵呵，有意思的问题。

抛开具体语言不谈，如何让这个操作运行的更快？

大多数有经验的程序员应该都会这样做：打开文件，移动文件指针到文件尾，然后回溯到文件中最末的换行(注意排除文件尾就是换行符的特殊情况)，截断文件，写入数据。那么问题是，回溯的策略？

[ 本帖最后由 jigloo 于 2007-6-23 01:26 编辑 ]

jigloo

回溯的策略应考虑的因素有：IO等待时间，系统调用次数，内存中字符串查找。
最后一项由于CPU和内存都很快，可以忽略不计。那么我们就要平衡前两项的时间。

一种直觉的办法，定义一个大小合适的缓存，比如1024，每次读取并查找。这个办法快而有效，几乎只要一次读取就可以找到换行符。经验告诉我们很少有文件一行大小超过1024。
但是考虑极端的情况，假设文件的最后一行很长很长，比1024要长很多，那么就要多次调用seek和read函数。这令人觉得会变慢(实际上我们几乎感觉不到)。

也许可以通过逐次增加回溯的步长来减少系统调用的次数，使用等比数列或菲波那切数列来逐增步长，尤其是菲波那切数列，用在这儿给人的感觉很美。可惜的是，这办法很糟糕。

jigloo

因为硬盘是块设备，所以当我们调用read函数读取指定大小字符时，操作系统其实读取了一个或多个block，拷贝给用户的进程空间指定大小的字符，并把这些block缓存起来。
所以，回溯的策略应该基于块的，而不是基于字符的。

这是个改进的策略：由于文件在硬盘/文件系统中并不是连续分布，并通常留有个一个不能完全填充一个block的尾部。所以我们可以先计算出这个尾部的大小(tailsize=size%blocksize)，然后根据经验(唉)，比如tailsize小于200的话(大多数行字符以内)，tailsize+=blocksize。然后read(tailsize)。如果读出的数据没有换行符的话，再用菲波那切数列以block来逐增步长。当然得步长有个上限，不能无限逐增。

这个策略看起来挺不错，但是会放大内存中字符串查找的影响因素并引入额外的考虑因素，比如系统核态与用户态拷贝的效率。如何平衡并减少这些影响，这就又要我们思考了。