如何从文件末尾到文件头打印?

agen_0502

UID: 6768
帖子: 198
积分: 455
在线时间: 2 天 5 小时

1^# agen_0502 发表于 2008-07-31 18:16

如何从文件末尾到文件头打印?

初学PERL，想实现一个类似tac的功能，请问题如何实现?

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-07-31 18:31

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
print reverse <>;

agen_0502

UID: 6768
帖子: 198
积分: 455
在线时间: 2 天 5 小时

3^# agen_0502 发表于 2008-07-31 22:43

谢谢! 我之前用reverse试过.可惜没想到这么简单, 再次感谢!

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

4^# hdc1112 发表于 2008-07-31 23:02

不知道对于大文件有更好的办法没，这个大文件占内存多明显的嘛

wellfroggy

UID: 13273
帖子: 30
积分: 69
在线时间: 1 小时

5^# wellfroggy 发表于 2008-08-01 10:54

reverse 把行倒了过来

flw

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

6^# flw 发表于 2008-08-01 11:21

http://search.cpan.org/~cwest/ppt-0.14/bin/tac

agen_0502

UID: 6768
帖子: 198
积分: 455
在线时间: 2 天 5 小时

7^# agen_0502 发表于 2008-08-05 16:56

谢谢,这个问题早就解决了,忘记告诉你们了.