#!/usr/bin/perl #use strict; require 'ref.pl'; # refer.pl で記録され、update_statistics.pl で集計された情報を表示する CGI # アクセス数の多い順に記事タイトル一覧を表示します。 # *** HTML を出力する JavaScript 文を返します *** ################################################# print "Content-type: text/html; charset=UTF-8\n\n"; print ""; $s = &get_statistics; print $s; print ""; exit(0);