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

麻辣

[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);
}