Perl 如何读取文本的最后一行非空字符串
展开全部
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;
}
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
