mod_security日志信息提取工具 - modgrep

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/usr/bin/perl

use Getopt::Std;
use vars qw/ %opt /;
my $opt_string = 'hf:s:v:';
getopts( "$opt_string",%opt ) or usage();
usage() if $opt{h};

if ($opt{f}) {
    open(FH,"<$opt{f}") || die "cant find $opt{f} file $!n";
}

if ($opt{s}) {
    $sstr = $opt{s};
}

$/ = "-Z--n";

while(my $line = <FH>) {
    chomp $line;
    if ($line =~ m/$sstr/g) {
        print "========================================nMatched Transaction for Search String ($sstr)n========================================n";
        print $line,"-Z--n";
        print "n";

    }
}
close(FH);

exit;

sub usage()

{
    print STDERR << "EOF";

This program does...

usage: $0 [-hf:s:v:]
    if a file is compressed then it will be uncompressed on the fly

    default   : display usage
    -f file   : file to search through
    -s string : string to match on - enclosed in quotes if it
                contains spaces

    -v level  : verbose output
    -h        : this (help) message

example:

         $0
         $0 -f
         $0 -s
         $0 -v level               Verbose/Debug messages,where level = 0..9
EOF
    exit;
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!