请教一个关于实时log分析的问题

nathanisl

假设需要登陆（假设是telnet啥的）一个不断生成log的服务器（每秒生成大约10~20行log）

需要用perl读入并进行一定分析，并做一些简单记录，应该是如何的一个思路呢？谢谢！

wfnh

POE::Wheel::FollowTail

nathanisl

一定要用模块么？perl本身不能实现？  谢谢！

黑色阳光_cu

一定要用模块么？perl本身不能实现？  谢谢！
nathanisl 发表于 2010-11-29 13:43

http://perldoc.perl.org/functions/seek.html

Due to the rules and rigors of ANSI C, on some systems you have to do a seek whenever you switch between reading and writing. Amongst other things, this may have the effect of calling stdio's clearerr(3). A WHENCE of 1 (SEEK_CUR ) is useful for not moving the file position:

   1. seek(TEST,0,1);

This is also useful for applications emulating tail -f . Once you hit EOF on your read and then sleep for a while, you (probably) have to stick in a dummy seek() to reset things. The seek doesn't change the position, but it does clear the end-of-file condition on the handle, so that the next <FILE> makes Perl try again to read something. (We hope.)

1. #!/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. local $|;
   
7. 
   
8. my $log_file = "log.txt";
   
9. if (open(my $fp, "<", $log_file))
   
10. {
    
11.         seek($fp, 0, 2);
    
12.         while (1)
    
13.         {
    
14.                 seek($fp, 0, 1);
    
15.                 if (eof($fp))
    
16.                 {
    
17.                         # sleep 20ms
    
18.                         select(undef, undef, undef, 0.02);
    
19.                 }
    
20.                 else
    
21.                 {
    
22.                         while (my $new_line = <$fp>)
    
23.                         {
    
24.                                 # add your code here
    
25.                                 print $new_line;
    
26.                         }
    
27.                 }
    
28.         }
    
29. }
    
30. else
    
31. {
    
32.         die "$log_file: $!\n";
    
33. }
    

复制代码

zhlong8

回复 2# wfnh


    能不能推荐几个 POE signal 方面的简单例子？分析到这块阻力很大啊

flw

回复  wfnh


    能不能推荐几个 POE signal 方面的简单例子？分析到这块阻力很大啊
zhlong8 发表于 2010-11-29 14:11

什么阻力？

莫非又是内功不足所致？

《UNIX 环境高级编程》看过吗？

flw

一定要用模块么？perl本身不能实现？  谢谢！
nathanisl 发表于 2010-11-29 13:43

模块就是 Perl 本身实现的。

zhlong8

回复 6# flw


    看过，不过不精忘掉不少。 听老大的话我回去补课，这几天在分析POE的实现，底层就差这块了

    老大每次回复都能让我羞的面红耳赤啊

黑色阳光_cu

回复  flw


    看过，不过不精忘掉不少。 听老大的话我回去补课，这几天在分析POE的实现，底层就差这 ...
zhlong8 发表于 2010-11-29 14:29

牛~~~

nathanisl

我理解一下：
POE::Wheel::FollowTail
这个模块是检查某个文件的更新，相当于判断tail -f 有无新的内容更新对不对？

那么如果没有文件呢，假设只是单纯命令输入，然后屏幕输出的log呢？谢谢！