perl的文件输出

cindy9902

UID: 42450
帖子: 68
积分: 156
在线时间: 6 小时

1^# cindy9902 发表于 2009-01-04 13:56

perl的文件输出

一个log文件，希望输出最后20行，怎么做呢？

hoo7

UID: 2826
帖子: 1
积分: 2
在线时间: 10 分钟

2^# hoo7 发表于 2009-01-04 14:20

tail -n 20 file

cindy9902

UID: 42450
帖子: 68
积分: 156
在线时间: 6 小时

3^# cindy9902 发表于 2009-01-04 14:35

这个是shell里面的吧？perl里面貌似不能这样用哦。

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

4^# MMMIX 发表于 2009-01-04 15:31

QUOTE:

原帖由 cindy9902 于 2009-1-4 13:56 发表
一个log文件，希望输出最后20行，怎么做呢？

[Copy to clipboard] [ - ]

CODE:

open my $log_fh, "log_file" or die "Can't open log_file:$!";

my @last = (<$log_fh>)[-20 .. -1];
print @last, "\n";

当然，如果 log_file 本身很大的话，这么做是成问题的。

cindy9902

UID: 42450
帖子: 68
积分: 156
在线时间: 6 小时

5^# cindy9902 发表于 2009-01-04 16:48

是的，文件比较大。使用了一个笨的办法，用shell命令tail -n 20 file。
再把得到的结果用perl输出。……

y6cmE

UID: 17426
帖子: 10
积分: 23
在线时间: 10 分钟

6^# y6cmE 发表于 2009-01-04 17:42

[Copy to clipboard] [ - ]

CODE:

open(FILE,"test") or die;
binmode(FILE);
my $len=(stat(FILE))[7];
seek(FILE,$len-1024,0);
read(FILE,$data,1024);
close FILE;
print $data;

呵呵，用这个吧，处理下$data就可以了，够快。

lonelyair

UID: 41707
帖子: 141
积分: 324
在线时间: 1 天 3 小时

7^# lonelyair 发表于 2009-01-04 17:56

QUOTE:

原帖由 y6cmE 于 2009-1-4 17:42 发表

open(FILE,"test") or die;
binmode(FILE);
my $len=(stat(FILE))[7];
seek(FILE,$len-1024,0);
read(FILE,$data,1024);
close FILE;
print $data;

呵呵，用这个吧，处理下$data就可以了，够快。

这个如何知道是文件的最后20行？

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

8^# ynchnluiti 发表于 2009-01-04 17:59

QUOTE:

原帖由 lonelyair 于 2009-1-4 17:56 发表

这个如何知道是文件的最后20行？

判断\n个数吧。1024不一定合适。

cindy9902

UID: 42450
帖子: 68
积分: 156
在线时间: 6 小时

9^# cindy9902 发表于 2009-01-04 18:06

多谢各位大侠指教，哈哈，学习了。

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

10^# MMMIX 发表于 2009-01-04 18:11

QUOTE:

原帖由 ynchnluiti 于 2009-1-4 17:59 发表

判断\n个数吧。1024不一定合适。

今天看文档(perldata)学到一招

[Copy to clipboard] [ - ]

CODE:

my $cnt = () = $str =~ m/\n/sg;

最后 $cnt 就是 $str 中包含的 \n 的个数。当然，这么写是由于 Perl 没有和 scalar 对应的 operator 可以提供 list context，如果有的话，例如叫 list，那么就可以写

[Copy to clipboard] [ - ]

CODE:

my $cnt = list($str =~ m/\n/sg);