用perl脚本来读取apache访问日志
#!/usr/bin/perl #use CGI qw/:standard/;#my $cgi=new CGI;
print "Pragma: no-cache\n";
print "Cache-control: no-cache\n";
print "Connection: close\n";
print "Content-type: text/html\n\n";
print "test CGI\n";
#print "test suceess\n";
my $filename="/var/log/httpd/access_log";
open (FILE, $filename) or die "Unable to open config";
页:
[1]