首页 > 代码库 > windows下Perl如何读取大文件的最后一行(总结)
windows下Perl如何读取大文件的最后一行(总结)
Perl中读取文件最后一行的方法很多，比如
（1）将文件读入数组，取最后一个元素
open (FILE,"file.txt") or die "$!";my @arr=<FILE>;;close FILE;my $last=$arr[$#arr];#$last里就是最后一行的内容了。
（2）一行一行读入，到最后一行时输出
open (FILE,"file.txt") or die "$!";while (<FILE>;){ open (TMP,">tmp.txt") or die "$!"; print TMP $_; close TMP;}close FILE;或者
open (FILE,"file.txt") ; $a=<FILE>;;push(@a,$a); while (<FILE> ){ push(@a,$_); shift@a; } close FILE; print @a;（3）这个并未尝试过，有兴趣可以试试
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.
（4）以上的方法都需要遍历整个文件，效率较低。下面这个方法是最高效的，特别是文件很大时，方法是：
打开文件,把指针移动到最后面,一个一个字节往前读,直到读到\N为止
#!/usr/bin/perl -wuse strict;my $file = shift or die;my $content = "";open (F, $file) or die $!;seek (F, 0, 2); # set handler at the end of $fileuntil ($content =~ m/\n(.*)\n?$/){ my $string; if (seek (F, -1024, 1)) # backward 1024 bytes { my $n = read (F, $string, 1024) or die $!; $content = $string . $content; last if ($n < 1024); seek(F, -1024, 1); } else{ my $len = tell F; seek (F, 0, 0) || die "see error at $file"; read (F, $string, $len) or die $!; $content = $string . $content; last; }}close(F);if ($content =~ m/\n\n$/){ print "\n";}elsif ($content =~ m/\n?(.*)\n?$/){ print "$1\n";}else{ print $content, "\n";}文中内容来自：提问http://bbs.chinaunix.net/thread-599099-1-1.html
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。