请问：如何读取文件的最后一行？

youhaorenshi

请问：在Windows环境下，怎么直接读取文件的最后一行的内容？因为文件很大，每行至少1024个字符，但是只有文件的最后一行才是我需要的。我用seek可以移到文件末尾，然后再用readline，但是内容是空。

兰花仙子

[quote]原帖由 "youhaorenshi"]请问：在Windows环境下，怎么直接读取文件的最后一行的内容？因为文件很大，每行至少1024个字符，但是只有文件的最后一行才是我需要的。我用seek可以移到文件末尾，然后再用readline，但是内容是空。[/quote 发表：



open (FILE,"file.txt" or die "$!";
my @arr=<FILE>;;
close FILE;
my $last=$arr[$#arr];

$last里就是最后一行的内容了。

youhaorenshi

楼上的方法我也知道，但是要是一个文件几百兆，就太慢了。有没有别的方法了。或者有什么办法可以知道文件有多少行。

apile

http://search.cpan.org/~mjd/Tie-File-0.96/lib/Tie/File.pm
DESCRIPTION ^

Tie::File represents a regular text file as a Perl array. Each element in the array corresponds to a record in the file. The first line of the file is element 0 of the array; the second line is element 1, and so on.

The file is not loaded into memory, so this will work even for gigantic files.

Changes to the array are reflected in the file immediately.

Lazy people and beginners may now stop reading the manual.

兰花仙子

[quote]原帖由 "youhaorenshi"]楼上的方法我也知道，但是要是一个文件几百兆，就太慢了。有没有别的方法了。或者有什么办法可以知道文件有多少行。[/quote 发表：

1. open (FILE,"file.txt") or die "$!";
   
2. while (<FILE>;)
   
3. {
   
4.     open (TMP,">;","tmp.txt") or die "$!";
   
5.     print TMP $_;
   
6.     close TMP;
   
7. }
   
8. close FILE;

复制代码

如上，用交换文件也可以，如果你内存有限的话。

yearnx

能不能配合shell的tail -1 file.txt来呢？在windows下也可以模拟个shell的

orangetouch

打开文件,把指针移动到最后面,一个一个字节往前读,直到读到\N为止

笨狗

原帖由 "apile" 发表：
http://search.cpan.org/~mjd/Tie-File-0.96/lib/Tie/File.pm
DESCRIPTION ^

Tie::File represents a regular text file as a Perl array. Each element in the array corresponds to a record in the file. The..........

楼主试试这个

run309

open (FILE,"file.txt" ;
$a=<FILE>;;push(@a,$a);
while (<FILE>
{ push(@a,$_);
shift@a;
}
print @a;
close FILE;

yearnx

原帖由 "run309" 发表：
open (FILE,"file.txt" ;
$a=<FILE>;;push(@a,$a);
while (<FILE>
{ push(@a,$_);
shift@a;
}
print @a;
close FILE;

糊弄人啊~说明白点阿~~