glogview.txt

#!/usr/bin/perl

　

$logfile = "access.log"; #アクセスログ用ファイル

$countfile = "count.log"; #ログ用ファイル

　

　

print "Content-type: text/html¥n¥n";

print "<html>¥n<head>¥n";

print "<title>access log </title>¥n";

print "</head>¥n<body>¥n";

print "<h2>Access log </h2>¥n";

print "<hr>¥n";

print "<pre>¥n";

　

open(CFILE, "+<$countfile");

flock(CFILE,2);

　

@log = <CFILE>;

chop @log;

print "$log[1]¥n";

print "Count = $log[0]¥n";

　

flock(CFILE,8);

close(CFILE);

　

&maketable($logfile);

　

　

print "</pre>¥n";

print "<hr>¥n";

print "</BODY>¥n";

print "</HTML>¥n";

　

exit;

　

　

sub maketable{

local($logfile) = @_;

open(FILE,"$logfile");

flock(FILE,1);

chop(@logs = <FILE>);

　

　

print "¥n";

　

foreach $line (@logs){

print $line;

print "¥n";

　

}

flock(FILE,8);

close(FILE);

}

　

　

　