怎么用perl取得一个文件的后Ｎ行

dell_3148228

UID: 22808
帖子: 14
积分: 32
在线时间: 10 分钟

1^# dell_3148228 发表于 2008-04-07 17:00

怎么用perl取得一个文件的后Ｎ行

怎么用perl取得一个文件的后Ｎ行
类似于tail -n3000 test.txt

net_robber

UID: 43048
帖子: 167
积分: 384
在线时间: 1 天 14 小时

2^# net_robber 发表于 2008-04-07 17:03

看你要什么

简单的，只是为了实现功能，可以把Perl跟Shell混着用

my $TAIL=`tail -n3000 test.txt`;

dell_3148228

UID: 22808
帖子: 14
积分: 32
在线时间: 10 分钟

3^# dell_3148228 发表于 2008-04-07 17:25

我初学perl.还望指教一二，
这么说吧，我想取应用程序日志文件的后３０００行，然后找到其中带有WARN信息的行！

可以给个样例代码么？

churchmice

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

4^# churchmice 发表于 2008-04-07 18:37

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
my $pattern = "WARN";
my $logfile = "log";
my @log = qx /tail -n3000 log/;
print grep { /$pattern/ } @log;

dell_3148228

UID: 22808
帖子: 14
积分: 32
在线时间: 10 分钟

5^# dell_3148228 发表于 2008-04-07 20:26

thanks a lot

gsging

UID: 14169
帖子: 179
积分: 411
在线时间: 1 天 19 小时

6^# gsging 发表于 2008-04-07 21:58

QUOTE:

原帖由 dell_3148228 于 2008-4-7 17:00 发表
怎么用perl取得一个文件的后Ｎ行
类似于tail -n3000 test.txt

你改道啦?

gsging

UID: 14169
帖子: 179
积分: 411
在线时间: 1 天 19 小时

7^# gsging 发表于 2008-04-08 00:01

#!perl

while(<>) {
print if ($.>3000 && /WARN/);
}

gsging

UID: 14169
帖子: 179
积分: 411
在线时间: 1 天 19 小时

8^# gsging 发表于 2008-04-08 00:09

#!perl -w

use strict;
use Tie::File;
tie my @array,'Tie::File',$ARGV[0];
map{ print $array[$_]."\n" if($array[$_]=~/WARN/);} (($#array-n+1) .. $#array);

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

9^# Nosferatu 发表于 2008-04-08 00:18

File::ReadBackwards

liang573728

UID: 38481
帖子: 162
积分: 372
在线时间: 1 天 12 小时

10^# liang573728 发表于 2008-04-08 09:14

QUOTE:

原帖由 gsging 于 2008-4-8 00:01 发表
#!perl

while() {
print if ($.>3000 && /WARN/);
}

GOOD