在perl中如何获得某个文件的最后几行？

wanahoo

如果不用shell中的tail -n，用什么来实现，如果只想获取一个文件的最后几行的话？谢谢！

deathcult

用
$i=0;
foreach(<filehandle>
{
$i++;
print if ((总行数-$i)<n);
}

Qiang

用 File::ReadBackwards , CPAN
It is simple to use, memory efficient and fast. (from the module doc )

如果你要实现 tail -n 的功能, 有 File::Tail


CPAN 是你的朋友。

麻辣

[quote]原帖由 "wanahoo"]如果不用shell中的tail -n，用什么来实现，如果只想获取一个文件的最后几行的话？谢谢！[/quote 发表：



#///---------------------------------------------------------------------///#
# 函数名字      :   readfile_s_e                                            #
# 所需元素      :   $[0]文件路径,读取的字节数,末尾移动字节数                #
# 返回结果      :   变量                                                    #
# 用    途      :   读取文件 系统级                                         #
#///---------------------------------------------------------------------///#
sub readfile_s_e {
        
        sysopen FILES, "$_[0]", O_RDONLY;
        sysseek FILES, -$_[2], 2;
        sysread( FILES, my $readfile_s_e, $_[1] );
        close(FILES);
return ($readfile_s_e);
}

deathcult

如果用File::Tail，还不如用`tail`。
：）

Qiang

原帖由 "deathcult" 发表：
如果用File::Tail，还不如用`tail`。
：）

then we can use 'ls' instead of readdir and also 'rm' instead of 'unlink'  , or better yet, do 'rm -rf' instead of going through directory recursively.

so many .. . ; )