count.cgi　呼び出す

【アクセスログ】　

【ソース】　acclog.cgi 【解説】
  1. #!/usr/local/bin/perl
  3. print "Content-Type: text/html\n\n";
  6. #ログファイル名
  7. $accfile="./acclogfile";
  10. #localtime関数でアクセス時間を取得
  11. ($sec,$min,$hour,$mday,$mon,$year)=localtime(time);
  13. #月の値が0〜11になるので、+1して1〜12に補正する
  14. $mon++;
  16. #西暦を4桁表示にする(2000年対応)
  17. $yy=$year + 1900;
  19. #全体を表示させる記述
  20. $nowis="$yy年$mon月$mday日$hour時$min分$sec秒\n";
  24. #訪問者のホスト名を得る
  25. ($remote_host,$remote_addr) = &get_host;
  27. sub get_host {
  28. my($remote_host,$remote_addr);
  29. $remote_host = $ENV{'REMOTE_HOST'};
  30. $remote_addr = $ENV{'REMOTE_ADDR'};
  31. if($remote_host eq '' || $remote_host eq $remote_addr){
  32. $remote_host = gethostbyaddr(pack('C4',split(/\./,$remote_addr)),2);
  33. if($remote_host eq ''){ $remote_host = $remote_addr; }
  34. }
  35. return($remote_host,$remote_addr);
  36. }
  41. #ブラウザ名を得る
  42. $browser=$ENV{'HTTP_USER_AGENT'};
  44. #どのページから来たかを得る
  45. $referer=$ENV{'HTTP_REFERER'};
  48. #ログファイルをデータ追加書き込みモードで開き、情報を追加
  49. open(FILE,">>$acclogfile");
  50. printf(FILE "%2d/%2d %02d:%02d, $remote_host, $remote_addr, $browser, $referer\n", $nowis);
  51. close(FILE);
  54. #ブラウザに表示する
  55. print "ホスト名は：$remote_host、そして、$remote_addr<BR><BR>使用しているブラウザは：$browser<BR><BR>あなたは、$referer から来ましたね？\n";
  57. exit;
ここまでくると、なんだかもう
まるおぼえ･･･（汗）





















25.リモートホストとIPを返す。
　　リモートホストが
　　取得できない場合は
　　どちらもIPになる。