perl分析apache日志

最新推荐文章于 2017-02-20 16:12:54 发布

转载最新推荐文章于 2017-02-20 16:12:54 发布 · 124 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://segmentfault.com/a/1190000007123811

本文介绍了一个使用Perl编写的脚本，该脚本可以从指定的日志文件中加载并解析数据。通过正则表达式匹配，脚本能够提取日志条目中的关键信息，并打印出来。此工具适用于需要快速处理和分析日志文件的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl
 
use Getopt::Std;
use warnings;
use strict;
 
sub load_log_file($) {
        my $log_filename = shift;
 
        open(FILE, "<", $log_filename) || die "Cannot open log file: $!\n";
        while(my $line = <FILE>) {
                $line =~ /^([0-9.]+)\s([\w.-]+)\s([\w.-]+)\s(\[[^\[\]]+\])\s"((?:[^"]|\")+)"\s(\d{3})\s(\d+|-)\s"((?:[^"]|\")+)"\s"((?:[^"]|\")+)"$/;   
 
                print "$1\n";
        }
 
        close FILE;
}
 
my %opts = ();
getopts("s:", \%opts);
if ($opts{'s'}) {
        print "LOADING LOGFILE $opts{'s'}";
        load_log_file($opts{'s'});
}