ＣＧＩスクリプト評価スレッド

**nobodyさん** · 02/04/28 13:13

sub print{
print "Content-type: text/html\n\n";
print "\n";
print "<html>\n";
print "<body bgcolor=#eeeeee text=#000000>\n";

open(IN,$File_Access); $log = <IN>; close(IN);
@log = split(/<>/,$log);
$cnt = 0;
while($cnt < $prt_log){
@x = split(/,/,$log[$cnt]);
print "$x[0] 　　　 $x[1] \n";
print "[USER_AGENT] : $x[2] \n";
print "[REMOTE_ADDR] : $x[3] \n";
print "[REMOTE_HOST] : $x[4] \n";
print "[REFERER] : <a href=$x[5] target=_blank>$x[5]</a> \n";
print "<hr>\n";
$cnt++;
}
print "</body></html>\n";
}