使用 Perl 和 Linux::Inotify2 模块监控 Mac 地址的日志文件

Question

我目前有我的脚本，我的目标是能够监控每秒更新的实时日志文件，并且一旦我的脚本找到这个 f8:27:93:88:1c:95 mac 地址它将该行写入脚本。

#!/usr/bin/perl
my $mac = "f8:27:93:88:1c:95";
open (OUT, ">output.txt");
sub Reader (){
    @a1 = `Tail System.log`;
}
sub Parser (){
    if( $_=~ m/f8:27:93:88:1c:95/ ){
        print OUT $_;
    }
}

我的目标是能够看到这个日志文件，它每秒都在更新，所以 tail 不能正常工作。

这是来自日志文件的 sn-p

> [2014-07-18 14:11:22,849] <inform_stat-1> WARN event - [event] User[f8:27:93:0c:da:c5] roams from AP[dc:9f:db:1a:61:bd] to AP[dc:9f:db:1a:61:b9] on "channel 44(na)"

Answer 1

也许使用像File::Tail这样的cpan模块

#!/usr/bin/perl

use strict;
use warnings;
use autodie;

use File::Tail;

my $infile = 'System.log';
my $outfile = 'output.txt';
my $mac = 'f8:27:93:88:1c:95';

open my $outfh, '>', $outfile;

my $tail = File::Tail->new($infile);
while (defined(my $line = $tail->read)) {
    print $outfh $line if $line =~ m/\Q$mac/;
}

Answer 2

您已经提到日志每秒都会更改。因此 inotify 对您的情况没有多大帮助。因此，我建议将您的 perl 脚本作为守护程序运行，以便它可以不断分析您的日志文件并将结果输出到文本文件。为了避免负载，您应该使用 seek 和 tell 以便整个文件不需要加载到服务器中。下面的代码将为您工作。

#!/usr/bin/perl
use POSIX qw(setsid);
use LWP::Simple;
$| = 1;
# daemonize the program
&daemonize;
while(1)
{
open (DATA,"</var/log/log");
open (OUT, ">output.txt");
my $position = 0;
$position = `cat /tmp/position` if -e "/tmp/position";
seek (DATA,$position,0);
while (<DATA>)
{
if( $_=~ m/f8:27:93:88:1c:95/ ){
        print OUT $_;
    }
}
$position = tell(DATA);
open (DATA1,">/tmp/position");
print DATA1 $position;
close(DATA);
close(DATA1);
close(OUT);
}
sub daemonize {
chdir '/' or die "Can’t chdir to /: $!";
open STDIN, '/dev/null' or die "Can’t read /dev/null: $!";
open STDOUT, '>>/dev/null' or die "Can’t write to /dev/null: $!";
open STDERR, '>>/dev/null' or die "Can’t write to /dev/null: $!";
defined(my $pid = fork) or die "Can’t fork: $!";
exit if $pid;
setsid or die "Can’t start a new session: $!";
umask 0;
}