如何删除大文件的末尾几行？（效率优先，文件有几十G）

r2007

#!/usr/bin/perl

use strict;
use warnings;

# For the SEEK_* constants
use Fcntl qw(:seek);
use File::ReadBackwards;

my $LINES = 10;     # Change to 125_000 or whatever
my $File = shift;   # file passed in as argument

my $rbw = File::ReadBackwards->new($File) or die $!;

# Count backwards $LINES or the beginning of the file is hit
my $line_count = 0;
until( $rbw->eof || $line_count == $LINES ) {
    $rbw->readline;
    $line_count++;
}

# Get the real filehandle out of the File::ReadBackwards
my $fh = $rbw->get_handle;

# Chop off everything from that point on.
truncate($File, $rbw->tell);

Shell_HAT

这里：
http://bbs.chinaunix.net/viewthread.php?tid=1459945

blackold

已经讨论过好几次了。

flw

原帖由 r2007 于 2009-10-15 20:51 发表
#!/usr/bin/perl

use strict;
use warnings;

# For the SEEK_* constants
use Fcntl qw(:seek);
use File::ReadBackwards;

my $LINES = 10;     # Change to 125_000 or whatever
my $File = shif ...

你这个太冗长了。

perl -e '$f = shift; truncate( $f => (-s $f) - shift )' 1.pl $(tail -10 1.pl|wc -c)

flw

原帖由 Shell_HAT 于 2009-10-15 21:15 发表
这里：
http://bbs.chinaunix.net/viewthread.php?tid=1459945

我错了！我错了！
还是 r2007 的办法好，
dd 没有 if 的时候等同于 truncate ……

败走……内牛满面……

efhilt

来个简单的

head -n -3

r2007

原帖由 efhilt 于 2009-10-17 08:01 发表
来个简单的

head -n -3

不考虑效率时是个常用的方案。

brucewoo

学习一下.