File::Tail的read和$/的疑问

gaochong

现在用File::Tail，想输出包含某个关键字的输出，并用$/控制行输入符。
但自己测试，$/并没有生效。个人估计是File::Tail中没有重新$/。
请问各位怎么解决？


测试代码如下：

#!/usr/bin/perl -w

use strict;
use File::Tail;

die "$0 must have 2 args:RE FILE\n" unless @ARGV==2;
local $/=")\n";
local $|=1;
my $re=shift;
my $file=shift;
die "$file is not exist,please check!\n" unless -e $file;
my $fh=File::Tail->new("$file");
while (defined(my $line=$fh->tail)) {
        print "$line" if $line=~/$re/i;
}



因为我的输入文件格式特殊，所以用local $/=")\n";

yybmsrs

TO BE DONE
Planned for 1.0: Using $/ instead of \n to separate "lines" (which should make it possible to read wtmp type files). Except that I discovered I have no need for that enhancement If you do, feel free to send me the patches and I'll apply them - if I feel they don't add too much processing time.

cpan上最后的一句话

gaochong

我确认不是$/的问题。

如下代码的$/是生效的。

#!/usr/bin/perl -w

use strict;

die "$0 must have 2 args:RE FILE\n" unless @ARGV==2;
local $/=")\n";
my $re=shift;
my $file=shift;
die "$file is not exist,please check!\n" unless -e $file;
open my $fh,"< $file" or die "$!";
while (<$fh>) {
        print "$_" if /$re/i;
}
close $fh;

yybmsrs

File::Tail这个包不支持$/

gaochong

能不能修改这个包里的$/?
该怎么解决这个问题呢？

gaochong

自己顶下

黑色阳光_cu

可以看到File::Tail里的read方法，调用了readin方法，而readin方法又是用sysread读文件的，sysread不会理$/，read和readin自己处理行尾，硬编码行尾为\n，所以。

gaochong

谢谢！

请问怎么实现我的需求呢？ 我现在还没有能力自己编写package .

谢谢！

黑色阳光_cu

谢谢！

请问怎么实现我的需求呢？ 我现在还没有能力自己编写package .

谢谢！
gaochong 发表于 2010-09-09 10:31

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. use File::Tail;
   
7. 
   
8. die "$0 must have 2 args:RE FILE\n" unless (@ARGV==2);
   
9. my ($re, $file) = @ARGV;
   
10. die "$file is not exist,please check!\n" unless -e $file;
    
11. 
    
12. local $/=")\n";
    
13. local $|=1;
    
14. 
    
15. my $fh=File::Tail->new("$file");
    
16. my $chunk = "";
    
17. while (defined (my $line = $fh->tail()))
    
18. {
    
19.         $chunk .= $line;
    
20.         if (index($chunk, $/) != -1)
    
21.         {
    
22.                 print $chunk if ($chunk =~ /$re/i);
    
23.                 $chunk = "";
    
24.         }
    
25. }
    
26. 
    
27. if ($chunk ne "")
    
28. {
    
29.         print $chunk if ($chunk =~ /$re/i);
    
30.         $chunk = "";
    
31. }
    
32. 
    

复制代码

gaochong

回复 9# 黑色阳光_cu


   
谢谢！
但我试过了，不行。


我的文件格式是这样的，是radius的日志。如果是Login OK的，就只有一行，包含abc1,并以)结尾；如果是Login incorrect的，会有2行信息，如下，第一行包含错误信息，以]结果，第二行包含abcd1，并以)结尾。
Thu Sep  9 11:47:39 2010 : Auth: Login OK: [xxxx/xxxx>] (from client abc1 port 3271558046 cli)
Thu Sep  9 11:47:39 2010 : Error: Username [dsffd] Reject Message[016:User subscription StopState error]
Thu Sep  9 11:47:39 2010 : Auth: Login incorrect: [dsffd/dddd>] (from client abcd1 port 4076864317 cli)
。。。。。。。。。。。。。。。。。。。。。。。。


我的需求如下：
我希望能够tail这个文件，输出包含abcd1的行，并输出这行信息的上一行（错误信息）。



my ($re,$file)=@ARGV;
my $fh=File::Tail->new("$file");
while (defined(my $line=$fh->read)) {
        if ($line=~/$re/i)
        {
                ###怎么输出当前行的上一行？
                print $line;
        }
}