怎样快速打印文件的最后一行。

hwxo

UID: 27474
帖子: 193
积分: 443
在线时间: 2 天 2 小时

1^# hwxo 发表于 2007-09-18 10:45

怎样快速打印文件的最后一行。

请大家指教，我只会先判断文件行数，然后根据行数打印最后一行 print if $.=总行数

dajun

UID: 1292
帖子: 150
积分: 345
在线时间: 1 天 7 小时

2^# dajun 发表于 2007-09-18 10:48

跳(seek)到文件最后,往前找\n

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

3^# flw 发表于 2007-09-18 13:49

一楼的方法是最简单的，
二楼的方法是最高效的。
看需求了，如果要简单，就用一楼的方法，如果要高效，就用二楼的方法。

那么有没有既简单、又高效的方法？
答案是：有！
而且还不止一个。

方法一：`tail -n1 ....`;
方法二：用 CPAN 模块。甭管什么 Tie::File、File::Tail，能整的全给它整上。

milkharbor

UID: 16969
帖子: 172
积分: 395
在线时间: 1 天 16 小时

4^# milkharbor 发表于 2007-09-18 14:58

还可以用reverse

hwxo

UID: 27474
帖子: 193
积分: 443
在线时间: 2 天 2 小时

5^# hwxo 发表于 2007-09-18 20:28

谢谢大伙儿！