一个tail的简单perl实现

SeaPrince

这个程序用来显示文件的最后几行，非常高效。
没有实现tail -f 的功能，如果需要也不难，只需要定时重新载入文件即可。

各位大侠帮忙看看，还有没有方法让程序更高效？

程序如下：

#!/usr/bin/perl # Author: combbs (AT) gmail.com # Website: http://eaxi.com/ die "open failed" unless open IN, $ARGV[0]; $buf = 150;&nbsp;&nbsp;&nbsp;&nbsp;# 缓冲区大小，可根据你的需要调整 $num = 5;&nbsp;&nbsp;&nbsp;&nbsp;# 行数 # Move to EOF seek IN, 0, 2; $str = ""; $c = 1; while (&linecount() < $num) { &nbsp;&nbsp;&nbsp;&nbsp;&readbuf($c); &nbsp;&nbsp;&nbsp;&nbsp;$c++; } @lines = split("\n", $str); $lines = @lines; # 切割数组 @lines = @lines[($lines-$num)..($lines-1)]; print join("\n", @lines); # 读取$_[0]倍缓存大小的内容 sub readbuf { &nbsp;&nbsp;&nbsp;&nbsp;$str = ""; &nbsp;&nbsp;&nbsp;&nbsp;seek IN,-1*$_[0]*$buf,1;  # Reverse seeking &nbsp;&nbsp;&nbsp;&nbsp;while (<IN>) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$str .= $_; &nbsp;&nbsp;&nbsp;&nbsp;} } # 统计缓存内行数 sub linecount { &nbsp;&nbsp;&nbsp;&nbsp;my $i=0; &nbsp;&nbsp;&nbsp;&nbsp;my @tmp; &nbsp;&nbsp;&nbsp;&nbsp;@tmp = split("\n", $str); &nbsp;&nbsp;&nbsp;&nbsp;$i=@tmp; &nbsp;&nbsp;&nbsp;&nbsp;$i; }

小公猫

不错的呀~~