#!/usr/local/bin/perl
print "\n";
print "\n";
print "
\n";
print " \n";
print " \n";
print " $ARGV[0] のページ群 の月毎被アクセス数\n";
print "\n\n";
print "\n";
print "$ARGV[0] のページ群 の月毎被アクセス数
\n";
print "
\n\n";
print "\n";
print "\n";
print "年 | 月 | アクセス数 |
\n\n";
$max = 0;
$turn = 0;
while()
{
($number,$month_year)=split(" ",$_);
@data_num[$turn] = $number;
@data_m_y[$turn] = $month_year;
$turn++;
if($number > $max){
$max = $number;
}
($month,$year)=split("/",$month_year);
print "$year | ";
print "$month | ";
print "" . $number . " |
\n";
}
print "
\n\n\n
\n\n";
for ($i =0; $i<$turn;$i++){
($month,$year)=split("/",$data_m_y[$i]);
print "$year/$month $data_num[$i]\n";
printf "
\n",$data_num[$i]/$max*100;
}
print "\n
\n\n";
print "戻る\n\n";
print "\n\n";