发布时间:2015-03-12 22:02:06
#!/usr/bin/perl -w$ip=32;$year=2009;open WWW,"/2009/05/27/access.log";@mini=qw(21 22);@send=qw(00 01 02 );#open IN,">>result.log";my $num=0;my @tmp[50]=(0);$PerlParsingFormat="([^ ]+) [^ ]+ ([^\\[]+) \\[([^ ]+) [^ ]+\\] \\\"([^ ]+) ([^ ]+) [^\\\"]+\\\" ([\\d|-]+) ([\\d|-]+) \\\"(.*?)\\\" \\.........【阅读全文】