perl分析apache日志

#!/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";

>>阅读原文<<