print lastline('22222.pl');
sub lastline {
my $f = shift;
open $H, $f;
seek $H, 0, 2;
$len = tell $H;
$len = 2048 if ($len > 2048);
seek $H, -$len, 1;
read $H, $str, $len;
$m = '';
while ($str =~/(.*)?\n?/gm) {
$m = $1 if (length $1);
}
return $m;
}
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024