windows下Perl如何读取大文件的最后一行(总结)

2020-12-13 03:25

阅读：260

标签：des class blog http ext 文件

Perl中读取文件最后一行的方法很多，比如

（1）将文件读入数组，取最后一个元素

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

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

（2）一行一行读入，到最后一行时输出

open (FILE,"file.txt") or die "$!";
while (;)
{
    open (TMP,">tmp.txt") or die "$!";
    print TMP $_;
    close TMP;
}
close FILE;

或者

open (FILE,"file.txt") ; 
$a=;;push(@a,$a); 
while ( )
{
     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 -w

use strict;

my $file = shift or die;
my $content = "";

open (F, $file) or die $!;
seek (F, 0, 2);                                 # set handler at the end of $file
until ($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

文中内容来自：提问http://bbs.chinaunix.net/thread-599099-1-1.html

windows下Perl如何读取大文件的最后一行(总结),搜素材,soscw.com

windows下Perl如何读取大文件的最后一行(总结)

标签：des class blog http ext 文件

原文地址：http://www.cnblogs.com/Gihub/p/3807248.html

上一篇：python_时间戳和格式化时间转换封装函数

下一篇：python日志添加功能，主要记录程序运行中的日志，统一收集并分析

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：windows下Perl如何读取大文件的最后一行(总结)
文章链接：http://soscw.com/essay/27558.html

亲，登录后才可以留言！

windows下Perl如何读取大文件的最后一行(总结)

评论

热门文章

推荐文章

最新文章

置顶文章