home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 December (DVD) / VPR0112A.ISO / OLS / FSTAT / fstat.lzh / lib / main.pl < prev    next >
Text File  |  2001-08-29  |  35KB  |  1,117 lines
  1. ;#+------------------------------------------------------------------------
  2. ;#|efStat
  3. ;#|･愠ｰｲﾏ･｡ｼ･ﾁ･
  4. ;#+------------------------------------------------------------------------
  5.  
  6. if (($P{PASS} ne $Pass) && ($DoPass)) {
  7.     print "<CENTER><P><B>[･ｨ･鬘ｼ]</B>･ﾑ･ｹ･｡ｼ･ﾉ､ｬｰﾃﾗ､ｷ､ﾞ､ｻ､ﾇ､ｷ､ｿ｡｣</P></CENTER>\n";
  8.     &html_tail;
  9.     exit(1);
  10. }
  11.  
  12.  
  13. ;### ｷﾗｻｻｻｴﾖﾂｬﾄｳｫｻﾏ
  14. $CPU_start = (times)[0] if ($DoPutBenchmark);
  15.  
  16. ### ･ｳ｡ｼ･ﾉﾊﾑｴｹﾍﾑ･ﾆ｡ｼ･ﾖ･､ﾉ､ﾟｹ､
  17. $TABLE{'agent'}    = &func::LoadTable('./lib/table/agent.tbl');
  18. $TABLE{'cctld'}    = &func::LoadTable('./lib/table/cctld.tbl');
  19. $TABLE{'gtld'}     = &func::LoadTable('./lib/table/gtld.tbl');
  20. $TABLE{'jpdomain'} = &func::LoadTable('./lib/table/jpdomain.tbl');
  21. $TABLE{'tinami'}   = &func::LoadTable('./lib/table/tinami.tbl');
  22.  
  23. foreach $filename (@filename) {
  24.     if ($filename eq '') { next; }        # ".log"･ﾕ･｡･､･ﾂﾐｺ
  25.     
  26.     ### ･ﾕ･｡･､･､ｪ｡ｼ･ﾗ･
  27.     unless (open(LOG,"<${Dir_Log}${filename}.log")) {
  28.         print "<CENTER><P><B>[･ｨ･鬘ｼ]</B>･｢･ｯ･ｻ･ｹ･愠ｰ ( ${Dir_Log}${filename}.log ) ､ｫ､ｯ､ｳ､ﾈ､ｬ､ﾇ､ｭ､ﾞ､ｻ､｣<BR>､ｽ､ﾎ･ﾕ･｡･､･､ﾏﾋﾜﾅﾋﾂｸｺﾟ､ｷ､ﾆ､､､､ｫ｡｢･ﾑ｡ｼ･ﾟ･ﾃ･ｷ･逾ﾏﾀｵ､ｷ､､､ｫ (606ﾋﾏ666) ､ﾊ､ﾉ､ﾎﾇｧｲｼ､ｵ､､｡｣</P></CENTER>\n";
  29.         &html_tail;
  30.         exit(1);
  31.     }
  32.     flock(LOG,2);
  33.  
  34.     ### ･ﾗ･愠ｰ･鬣狆ﾂｹﾔｻｹ､霹ﾀ
  35.     ($SEC,$MIN,$HOUR,$DAY,$MON,$YEAR,$YOUBI,$TOTAL) = localtime(time);
  36.  
  37.     ### ･ﾘ･ﾃ･ﾀﾉﾉ､ﾟｹ､爍ﾁ･ｧ･ﾃ･ｯ
  38.     chop($HEAD = <LOG>);
  39.     ($LOG_ID, $LOG_SINCE{$filename}) = split(/\t/, $HEAD);
  40.     $LOG_SINCE{$filename} = &func::C62_Decode($LOG_SINCE{$filename});
  41.  
  42.     if ($LOG_ID ne 'FC2') { next; }
  43.  
  44.     ### ｳﾆｼｾ
  45.     chomp($INFO{$filename} = <LOG>);
  46.     $RANK_ALL{$filename} = &func::C62_Decode((split(/\t/, $INFO{$filename}))[1]);
  47.  
  48.     ### ﾆﾊﾌｽｸｷﾗ
  49.     chomp($DAY{$filename} = <LOG>);
  50.     $RANK_DAY{$filename} = &func::C62_Decode((split(/\t/, $DAY{$filename}))[0]);
  51.  
  52.     ### ｻｴﾖﾊﾌｽｸｷﾗ
  53.     chomp($HOUR{$filename} = <LOG>);
  54.  
  55.     ### ﾍﾋﾆﾊﾌｽｸｷﾗ
  56.     chomp($WEEK{$filename} = <LOG>);
  57.  
  58.     ### ｽｵﾊﾌｽｸｷﾗ
  59.     chomp($WEEKLY{$filename} = <LOG>);
  60.     $RANK_WEEKLY{$filename} = &func::C62_Decode((split(/\t/, $WEEKLY{$filename}))[0]);
  61.  
  62.     ### ｷ鑅ﾌｽｸｷﾗ
  63.     chomp($MONTH{$filename} = <LOG>);
  64.     $RANK_MONTH{$filename} = &func::C62_Decode((split(/\t/, $MONTH{$filename}))[$MON]);
  65.  
  66.     ### ﾇｯﾅﾙﾊﾌｽｸｷﾗ
  67.     chomp($YEAR{$filename} = <LOG>);
  68.     # $RANK_YEAR{$filename} = &func::C62_Decode((split(/\t/, $YEAR{$filename}))[0]);
  69.  
  70.     ### ･｢･ｯ･ｻ･ｹ･愠ｰｽｸｷﾗ
  71.     # ｲﾏﾈﾏｰﾏ､ｬｻﾘﾄ熙ｵ､､ﾆ､､､ｾｹ
  72.     if ((defined($P{'d'})) && ($P{'d'} ne 'a')) {
  73.         if ($P{'d'} eq 'y') { $TOTAL = --$TOTAL; }
  74.         @HOUR = ('0') x 24;
  75.         while (chomp($LINE = <LOG>)) {
  76.             &Macro_Split;
  77.             ($sec,$min,$hour,$day,$mon,$year,$youbi,$total) = localtime($date);
  78.             if ($TOTAL eq $total) {
  79.                 ++$HOUR[ $hour ];
  80.                 &Macro_ProcessLine;
  81.             }
  82.         }
  83.         foreach (@HOUR) { $_ = &func::C62_Encode($_); }
  84.         $HOUR{$filename} = join("\t", @HOUR);
  85.     }
  86.  
  87.     # ﾁｴ､ﾆﾉｽｼｨ
  88.     else {
  89.         while (chop($LINE = <LOG>)) {
  90.             &Macro_Split;
  91.             &Macro_ProcessLine;
  92.         }
  93.     }
  94.  
  95.     flock(LOG,8);
  96.     close(LOG);
  97.  
  98.     ### ﾀｸ･愠ｰﾍﾑ･ｫ･ｦ･ｿ､魘ｲｽ､ｷ､ﾆ､ｪ､ｯ
  99.     $COUNT_RAWLOG = 0;
  100.  
  101.     ### ﾋｽﾁﾉｻﾟﾍﾑ･･ﾟ･ﾃ･ｿ
  102.     if ($SAMPLES == $Limit_Analyzer) {
  103.         print "<CENTER><P><B>[･ｨ･鬘ｼ]</B>ﾊﾝｸ鋙｡ﾇｽ\､ｬﾆｯ､ｭ｡｢･ﾗ･愠ｰ･鬣爨ｯﾀｩｽｪﾎｻ､ｷ､ﾞ､ｷ､ｿ｡｣<BR>$Limit_Analyzerｷ､ﾞ､ﾇ､ﾎ･愠ｰ､ｷ､ｫｽ靉､ﾇ､ｭ､ﾊ､､､隍ｦ､ﾋ､ﾊ､ﾃ､ﾆ､､､ﾞ､ｹ｡｣<BR>ﾋﾏ｡｢･ﾗ･愠ｰ･鬣爨ｬﾋｽ\ﾁｷ､ﾞ､ｷ､ｿ｡｣ｿｼｹ､ﾊﾌ萃熙ﾇ､ｹ､ﾎ､ﾇ｡｢､ｼ､ﾒｺ錡ﾔ､ﾋ､ｴﾏ｢ﾍ昀ｼ､ｵ､､｡｣</P></CENTER>\n";
  104.         &html_tail;
  105.         exit(1);
  106.     }
  107. }
  108.  
  109.  
  110. sub Macro_Split {
  111.     ($num, $date, $host, $agent, $ref, $screen) = split(/\t/, $LINE);
  112.     $num  = &func::C62_Decode($num);
  113.     $date = &func::C62_Decode($date);
  114.  
  115.     $host =~ tr/A-Z/a-z/;
  116.  
  117.     $ref  = &func::URLdecode($ref);
  118.     &jcode::convert(\$ref, 'euc', '', 'z');
  119.     &jcode::tr(\$ref, '｣ｰ-｣ｹ｣ﾁ-｣ﾚ｣-｣奛｡', '0-9a-za-z ');
  120.     $ref = &func::URLencode($ref);
  121. }
  122.  
  123. sub Macro_ProcessLine {
  124.     ### ｰﾈﾖｿｷ､ｷ､､･愠ｰ､ﾎｵｭﾏｿﾆｻ
  125.     $now = $date if ($SAMPLES == 0);
  126.  
  127.     ### ﾀｸ･愠ｰ､霹ﾀ
  128.     if (($P{MODE} eq 'rawlog') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_rawlog') || ($P{MODE} eq 'solo_all')) {
  129.         &Macro_CountRawlog() if ($COUNT_RAWLOG < $Limit_Log);
  130.     }
  131.  
  132.     ### ｻｲｾﾈｸｵﾅｷﾗ, TINAMI･ｫ･ﾆ･ｴ･ﾊｬﾀﾏ, Surfers Paradiceﾊｬﾀﾏ
  133.     &Macro_CountRef() if (($P{MODE} eq 'ref') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all'));
  134.  
  135.     ### ･ﾛ･ｹ･ﾈﾌｾﾅｷﾗ, ｹﾒﾊｬﾀﾏ, ｹ筵ﾉ･皈､･ｬﾀﾏ
  136.     &Macro_CountHost() if (($P{MODE} eq 'host') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all'));
  137.  
  138.     ### ･ﾖ･鬣ｦ･ｶﾅｷﾗ, ･ﾖ･鬣ｦ･ｶﾊｬﾀﾏ, ･ｹ･ｯ･遙ｼ･
  139.     &Macro_CountAgent() if (($P{MODE} eq 'ua') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all'));
  140.  
  141.     ### ･ｹ･ｯ･遙ｼ･
  142.     &Macro_CountScreen() if (($P{MODE} eq 'screen') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all'));
  143.  
  144.     ### ･ｵ･ﾗ･･ｰ､ｷ､ｿ･｢･ｯ･ｻ･ｹ･愠ｰ､ﾎﾁ暠
  145.     $SAMPLES++;
  146.  
  147.     ### ｰﾈﾖｸﾅ､､･愠ｰ､ﾎｵｭﾏｿﾆｻ
  148.     $old = $date;
  149. }
  150.  
  151.  
  152. ### ｽｸｷﾗｷｲﾌ､ｽ｡ｼ･ﾈ
  153. ### ﾏ｢ﾁﾛﾇﾛﾎｽ､ｹ､ﾁｰ､ﾋﾉｬﾍﾗ､ﾊｾﾔﾈｷ､ﾆ､ｪ､ｯ
  154. ### ﾉﾔﾍﾗ､ﾋ､ﾊ､ﾃ､ｿﾏ｢ﾁﾛﾇﾛﾎｽ､ｹ､
  155. if (($P{MODE} eq 'count') || ($P{MODE} eq 'all')) {
  156.     #ﾁ晥逾鬣ｭ･ｰ
  157.     @rank_all            = &func::MakeList(\%RANK_ALL, \0);
  158.     $COUNT_ALL            = &func::CalcSum(values(%RANK_ALL));
  159.     undef %RANK_ALL;
  160.  
  161.     #ｷ鋗ﾖ･鬣ｭ･ｰ
  162.     @rank_month            = &func::MakeList(\%RANK_MONTH, \0);
  163.     $COUNT_MONTH        = &func::CalcSum(values(%RANK_MONTH));
  164.     undef %RANK_MONTH;
  165.  
  166.     #ｽｵｴﾖ･鬣ｭ･ｰ
  167.     @rank_weekly        = &func::MakeList(\%RANK_WEEKLY, \0);
  168.     $COUNT_WEEKLY        = &func::CalcSum(values(%RANK_WEEKLY));
  169.     undef %RANK_WEEKLY;
  170.  
  171.     #ﾋﾜﾆ･鬣ｭ･ｰ
  172.     @rank_day            = &func::MakeList(\%RANK_DAY, \0);
  173.     $COUNT_DAY            = &func::CalcSum(values(%RANK_DAY));
  174.     undef %RANK_DAY;
  175. }
  176.  
  177.  
  178. if (($P{MODE} eq 'ref') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  179.     while (($key, $value) = each(%REF)) {
  180.         foreach (@Complete_URL) {
  181.             if ($key =~ /$$_[0]/) {
  182.                 $REF{"<B>[User]</B> $$_[1]"} += $value;
  183.                 delete $REF{$key};
  184.                 last;
  185.             }
  186.         }
  187.     }
  188.  
  189.     @ref                = &func::MakeList(\%REF, \$Limit_Ref);
  190.     $COUNT_REF            = &func::CalcSum(values(%REF));                    #ｼｫ･ｵ･､･ﾈﾆ篏ｲｾﾈｿ
  191.     undef %REF;
  192.  
  193.     @ref_own            = &func::MakeList(\%REF_OWN, \0);
  194.     $COUNT_OWN            = &func::CalcSum(values(%REF_OWN));                #ｼｫ･ｵ･､･ﾈﾆ篏ｲｾﾈｿ
  195.     undef %REF_OWN;
  196.  
  197.     @ref_search            = &func::MakeList(\%REF_SEARCH, \$Limit_Search);
  198.     $COUNT_SEARCH        = &func::CalcSum(values(%REF_SEARCH));            #･ｵ｡ｼ･ﾁ･ｨ･ｸ･ﾎ･ｭ｡ｼ･｡ｼ･ﾉﾁ暠
  199.     undef %REF_SEARCH;
  200.  
  201.     #･ｵ｡ｼ･ﾁ･ｨ･ｸ･ｫ､鯱隍ｿｿ
  202.     @ref_search_share    = &func::MakeList(\%REF_SEARCH_SHARE, \0);
  203.     $COUNT_SEARCH_SHARE    = &func::CalcSum(values(%REF_SEARCH_SHARE));    
  204.     $COUNT_TN_            = $REF_SEARCH_SHARE{'TINAMI'};                    #TINAMI､ｫ､鯱隍ｿｿ
  205.     $COUNT_SP_            = $REF_SEARCH_SHARE{'Surfers Paradice'};        #SP､ｫ､鯱隍ｿｿ
  206.     undef %REF_SEARCH_SHARE;
  207.  
  208.     @ref_tinami            = &func::MakeList(\%REF_TINAMI, \$Limit_Tinami);
  209.     $COUNT_TN            = &func::CalcSum(values(%REF_TINAMI));            #TINAMI､ﾎ･ｭ｡ｼ･｡ｼ･ﾉﾁ暠
  210.     undef %REF_TINAMI;
  211.  
  212.     @ref_sp                = &func::MakeList(\%REF_SP, \$Limit_Sp);
  213.     $COUNT_SP            = &func::CalcSum(values(%REF_SP));                #SP､ﾎ･ｭ｡ｼ･｡ｼ･ﾉﾁ暠
  214.     undef %REF_SP;
  215. }
  216.  
  217.  
  218. if (($P{MODE} eq 'host') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  219.     @host                = &func::MakeList(\%HOST, \$Limit_Host);
  220.     undef %HOST;
  221.  
  222.     @host_dm            = &func::MakeList(\%HOST_DM, \$Limit_Domain);
  223.     $COUNT_JP            = $HOST_DM{'jp'};
  224.     $COUNT_US            = $HOST_DM{'us'};
  225.     undef %HOST_DM;
  226.  
  227.     @host_dm_jp            = &func::MakeList(\%HOST_DM_JP, \$Limit_Jp);
  228.     undef %HOST_DM_JP;
  229.  
  230.     @host_dm_us            = &func::MakeList(\%HOST_DM_US, \$Limit_Us);
  231.     undef %HOST_DM_US;
  232. }
  233.  
  234.  
  235. if (($P{MODE} eq 'ua') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  236.     @agent                = &func::MakeList(\%AGENT, \$Limit_Agent);
  237.     undef %AGENT;
  238.  
  239.     @agent_ie            = &func::MakeList(\%AGENT_IE, \0);
  240.     $COUNT_IE            = &func::CalcSum(values(%AGENT_IE));            #IE､ﾎ･ｷ･ｧ･｢
  241.     undef %AGENT_IE;
  242.  
  243.     @agent_nn            = &func::MakeList(\%AGENT_NN, \0);
  244.     $COUNT_NN            = &func::CalcSum(values(%AGENT_NN));            #NN､ﾎ･ｷ･ｧ･｢
  245.     undef %AGENT_NN;
  246.  
  247.     @agent_os            = &func::MakeList(\%AGENT_OS, \0);
  248.     $COUNT_OS            = &func::CalcSum(values(%AGENT_OS));            #OS､ﾎ･ｷ･ｧ･｢
  249.     undef %AGENT_OS;
  250. }
  251.  
  252.  
  253. if (($P{MODE} eq 'screen') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  254.     @screen                = &func::MakeList(\%SCREEN, \0);
  255.     $COUNT_SCREEN        = &func::CalcSum(values(%SCREEN));                #ﾍｭｰﾕ､ﾊｲ靂ﾌｾｫ･ｦ･ﾈｿ
  256.     undef %SCREEN;
  257.  
  258.     @screen_size        = &func::MakeList(\%SCREEN_SIZE, \0);
  259.     $COUNT_SCREEN_SIZE    = &func::CalcSum(values(%SCREEN_SIZE));            #ﾍｭｰﾕ､ﾊｲ靂ﾌｾｫ･ｦ･ﾈｿ
  260.     undef %SCREEN_SIZE;
  261.  
  262.     @screen_color        = &func::MakeList(\%SCREEN_COLOR, \0);
  263.     $COUNT_SCREEN_COLOR    = &func::CalcSum(values(%SCREEN_COLOR));        #ﾍｭｰﾕ､ﾊｲ靂ﾌｾｫ･ｦ･ﾈｿ
  264.     undef %SCREEN_COLOR;
  265. }
  266.  
  267.  
  268.  
  269. ### ･ｳ｡ｼ･ﾉ､莊ｭｹ讀ﾕﾌ｣､｢､ﾊｸｻ昀ﾋﾊﾑｴｹ､ｹ､
  270. &Macro_ChangeList;
  271.  
  272.  
  273. ### ｳﾆｼｾ
  274. if (($P{MODE} eq 'solo_rawlog') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  275.     $days = ($now-$old)/86400;                        #･愠ｰ､隍ﾃ､ｿｴｴﾖ(ﾆｿ)
  276.     $now = &func::MakeDate($now);
  277.     $old = &func::MakeDate($old);
  278.  
  279.     print "<CENTER><TABLE BORDER=2 CELLSPACING=0 CELLPADDING=2>\n";
  280.     print "\t<TR><TH COLSPAN=4${tbc[0]}>ﾂﾐｾﾝ･愠ｰ･ﾕ･｡･､･ : ${filename[0]}.log</TH></TR>\n";
  281.     print "\t<TR><TH${tbc[1]}>ﾄｴｺｺｴｴﾖ</TH><TD${tbc[5]}>$old ｡ﾁ $now</TD><TH${tbc[2]}>ﾁ愠ﾒ･ﾃ･ﾈｿ</TH><TD${tbc[6]}>$RANK_ALL{ $filename[0] }</TD></TR>\n";
  282.  
  283.     if ($days > 0) {
  284.         $ave  = sprintf("%0.2f", $SAMPLES/$days);
  285.         $days = sprintf("%0.2f", $days);
  286.         print "\t<TR><TH COLSPAN=4${tbc[8]}>$SAMPLES･｢･ｯ･ｻ･ｹﾃ｣ﾀｮ､ﾋ$daysﾆﾍﾗ､ｷ､ﾞ､ｹ｡｡(1ﾆﾊｿｶﾑ $ave ･｢･ｯ･ｻ･ｹ)</TH></TR>\n";
  287.     }
  288.     print "</TABLE></CENTER><HR>\n\n";
  289. }
  290.  
  291.  
  292. ### ｾｮ･皈ﾋ･蝪ｼ
  293. unless ($P{MODE} eq 'solo_rawlog') {
  294.     ### ･皈ﾋ･蝪ｼ
  295.     $colspan = 6;        # ﾎﾎｿ
  296.     print "<!-- ｾｮ･皈ﾋ･蝪ｼ -->\n<A name=menu></A>\n<CENTER><TABLE border=1 cellspacing=0 cellpadding=1${tbc[0]}>\n\t<TR><TH colspan=${colspan}><FONT size=+1>｡ ｾｮ･皈ﾋ･蝪ｼ ｡</FONT></TH></TR>\n";
  297.  
  298.     if ($P{MODE} eq 'rawlog') {
  299.         &menu_rawlog;
  300.     } elsif ($P{MODE} eq 'count') {
  301.         &menu_count;
  302.         &menu_rank;
  303.     } elsif ($P{MODE} eq 'ref') {
  304.         &menu_ref;
  305.     } elsif ($P{MODE} eq 'host') {
  306.         &menu_host;
  307.     } elsif ($P{MODE} eq 'ua') {
  308.         &menu_ua;
  309.     } elsif ($P{MODE} eq 'screen') {
  310.         &menu_screen;
  311.     } elsif ($P{MODE} eq 'all') {
  312.         print "\t<TR><TH colspan=${colspan}${tbc[0]}>｢｣ﾀｸ･愠ｰ｢｣</TH></TR>\n";
  313.         &menu_rawlog;
  314.         print "\t<TR><TH colspan=${colspan}${tbc[0]}>｢｣､ｽ､ﾎﾂｾｽｸｷﾗ｢｣</TH></TR>\n";
  315.         &menu_count;
  316.         &menu_rank;
  317.         &menu_ref;
  318.         &menu_host;
  319.         &menu_ua;
  320.         &menu_screen;
  321.     } elsif (($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  322.         &menu_count;
  323.         &menu_ref;
  324.         &menu_host;
  325.         &menu_ua;
  326.         &menu_screen;
  327.     }
  328.     print "<TR><TD colspan=${colspan}><DIV ALIGN=right><A HREF=\"$self\">[｢･ ･皈ﾋ･蝪ｼ､ﾋﾌ皃]</A></DIV></TD></TR></TABLE></CENTER><HR>\n\n";
  329. }
  330.  
  331.  
  332. ### ﾀｸ･愠ｰ
  333. if (($P{MODE} eq 'rawlog') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_rawlog') || ($P{MODE} eq 'solo_all')) {
  334.     ### ﾀｸ･愠ｰ､ﾎ･ﾆ｡ｼ･ﾖ･
  335.     print "<CENTER>\n";
  336.     foreach $filename (@filename) {
  337.         if (defined($RAWLOG{$filename})) {
  338.             print "<A NAME=rawlog_${filename}></A>\n<TABLE border=1 cellspacing=0 cellpadding=1${tbc[0]}><TR><TD><A HREF=\"#menu\"><B><FONT size=+1>ﾀｸ･愠ｰ ($filename.log)</FONT> / ｺﾇｿｷ$Limit_Logｷ</B></A></TD></TR><TR><TD><PRE>\n";
  339.             print $RAWLOG{$filename};
  340.             print "</PRE></TD></TR></TABLE><BR>\n";
  341.         }
  342.     }
  343.     print "</CENTER>\n";
  344. }
  345.  
  346.  
  347. ### ･ｫ･ｦ･ﾈｽｸｷﾗ
  348. if (($P{MODE} eq 'count') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  349.     print "<!-- ･ｫ･ｦ･ﾈｿｸｷﾗ -->\n<CENTER>\n";
  350.     print "<!-- ﾆﾊﾌｽｸｷﾗ -->\n<A name=day></A>\n";
  351.  
  352.     &Macro_PutTable_b(0, $koumoku{'day'}, \%DAY);
  353.     undef %DAY;
  354.     print "\n\n<BR>\n\n";
  355.     print "<!-- ｽｵﾊﾌｽｸｷﾗ -->\n<A name=weekly></A>\n";
  356.     &Macro_PutTable_b(0, $koumoku{'weekly'}, \%WEEKLY);
  357.     undef %WEEKLY;
  358.     print "\n\n<BR>\n\n";
  359.     print "<!-- ｷ鑅ﾌｽｸｷﾗ -->\n<A name=month></A>\n";
  360.     &Macro_PutTable_b(0, $koumoku{'month'}, \%MONTH);
  361.     undef %MONTH;
  362.     print "\n\n<BR>\n\n";
  363.     print "<!-- ｻｴﾖﾂﾓﾊﾌｽｸｷﾗ -->\n<A name=hour></A>\n";
  364.     &Macro_PutTable_b(2, $koumoku{'hour'}, \%HOUR);
  365.     undef %HOUR;
  366.     print "\n\n<BR>\n\n";
  367.     print "<!-- ﾍﾋﾆﾊﾌｽｸｷﾗ -->\n<A name=week></A>\n";
  368.     &Macro_PutTable_b(2, $koumoku{'week'}, \%WEEK);
  369.     undef %WEEK;
  370.     print "\n\n<BR>\n\n";
  371.     print "<!-- ﾇｯﾅﾙﾊﾌｽｸｷﾗ -->\n<A name=year></A>\n";
  372.     &Macro_PutTable_b(0, $koumoku{'year'}, \%YEAR);
  373.     undef %YEAR;
  374.     print "\n</CENTER><BR>\n\n";
  375.  
  376.     unless (($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  377.         print "<!-- ･ｵ･､･ﾈﾆ筵鬣ｭ･ｰ -->\n<A name=rank></A>\n<CENTER><TABLE border=0 cellpadding=4><TR><TD valign=top>\n";
  378.         &Macro_PutTable_a(0, 'ﾁ晥逾鬣ｭ･ｰ', '･ﾚ｡ｼ･ｸﾌｾ', $COUNT_ALL,        '', 0, 0, \@rank_all);
  379.         undef @rank_all;
  380.         print "</TD><TD valign=top>\n";
  381.         &Macro_PutTable_a(0, 'ｷ鋗ﾖ･鬣ｭ･ｰ', '･ﾚ｡ｼ･ｸﾌｾ', $COUNT_MONTH,    '', 0, 0, \@rank_month);
  382.         undef @rank_month;
  383.         print "</TD></TR><TR><TD valign=top>\n";
  384.         &Macro_PutTable_a(0, 'ｽｵｴﾖ･鬣ｭ･ｰ', '･ﾚ｡ｼ･ｸﾌｾ', $COUNT_WEEKLY,    '', 0, 0, \@rank_weekly);
  385.         undef @rank_weekly;
  386.         print "</TD><TD valign=top>\n";
  387.         &Macro_PutTable_a(0, 'ﾋﾜﾆ･鬣ｭ･ｰ', '･ﾚ｡ｼ･ｸﾌｾ', $COUNT_DAY,        '', 0, 0, \@rank_day);
  388.         undef @rank_day;
  389.         print "</TD></TR></TABLE></CENTER><BR>\n\n";
  390.     }
  391. }
  392.  
  393. ### ｻｲｾﾈｸｵｷﾏ
  394. if (($P{MODE} eq 'ref') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  395.     print "<!-- ｻｲｾﾈｸｵ -->\n<A name=ref></A>\n<CENTER>\n";
  396.     &Macro_PutTable_a(0, 'ｻｲｾﾈｸｵﾅｷﾗ', 'ｻｲｾﾈｸｵURL', $COUNT_REF, '', 0, $Limit_Ref, \@ref);
  397.     undef @ref;
  398.     print "</CENTER><BR>\n\n";
  399.     print "<!-- ･ｵ･､･ﾈﾆ箍ﾜﾆｰﾊｬﾀﾏ -->\n<A name=ref_own></A><CENTER>\n";
  400.     &Macro_PutTable_a(2, '･ｵ･､･ﾈﾆ箍ﾜﾆｰﾊｬﾀﾏ', 'ｰﾜﾆｰ､ﾎﾆ篶', $COUNT_OWN, 'ｼｫ･ｵ･､･ﾈﾆ笋ｪｼｫ･ｵ･､･ﾈﾆ', $COUNT_OWN, 0, \@ref_own);
  401.     undef @ref_own;
  402.     print "</CENTER><BR>\n\n";
  403.  
  404.     print "<!-- ･ｵ｡ｼ･ﾁ･ｨ･ｸ･ｷﾗ -->\n<CENTER><TABLE border=0 cellpadding=8><TR><TD valign=top>\n<A name=search_share></A>\n";
  405.     &Macro_PutTable_a(2, '･ｵ｡ｼ･ﾁ･ｨ･ｸ･ｷ･ｧ･｢', 'ﾌｾﾁｰ', $COUNT_SEARCH_SHARE, '･ｵ｡ｼ･ﾁ･ｨ･ｸ･ｫ､', $COUNT_SEARCH_SHARE, 0, \@ref_search_share);
  406.     undef @ref_search_share;
  407.     print "\n</TD><TD valign=top>\n<A name=search_key></A>\n";
  408.     &Macro_PutTable_a(0, '･ｵ｡ｼ･ﾁ･ｨ･ｸ･ｬﾀﾏ', 'ｸ｡ｺ｡ｼ･ﾉ(ｳｵｻｻ)', $COUNT_SEARCH, '', 0, $Limit_Search, \@ref_search);
  409.     undef @ref_search;
  410.     print "\n</TD></TR></TABLE></CENTER>\n\n";
  411.     print "<CENTER><TABLE border=0 cellpadding=8><TR><TD valign=top>\n<A name=tinami></A>\n";
  412.     &Macro_PutTable_a(1, 'TINAMIﾊｬﾀﾏ', 'ｸ｡ｺ｡ｼ･ﾉ', $COUNT_TN, 'TINAMI､ｫ､', $COUNT_TN_, $Limit_Tinami, \@ref_tinami);
  413.     undef @ref_tinami;
  414.     print "\n</TD><TD valign=top>\n<A name=sp></A>\n";
  415.     &Macro_PutTable_a(1, 'Surfers Paradiceﾊｬﾀﾏ', 'ｸ｡ｺ｡ｼ･ﾉ', $COUNT_SP, 'SP､ｫ､', $COUNT_SP_, $Limit_Sp, \@ref_sp);
  416.     undef @ref_sp;
  417.     print "\n</TD></TR></TABLE></CENTER><BR>\n\n";
  418. }
  419.  
  420. ### ･ﾛ･ｹ･ﾈｷﾏ
  421. if (($P{MODE} eq 'host') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  422.     print "<!-- ･ﾉ･皈､･ｷﾗ -->\n<CENTER><TABLE border=0 cellpadding=8><TR><TD valign=top>\n<A name=host></A>\n";
  423.     &Macro_PutTable_a(0, '･ﾉ･皈､･ﾌﾅｷﾗ', '･ﾉ･皈､･', $SAMPLES, '', 0, $Limit_Host, \@host);
  424.     undef @host;
  425.     print "\n</TD><TD valign=top>\n<A name=domain></A>\n";
  426.     &Macro_PutTable_a(0, 'ｹﾒﾊﾌﾅｷﾗ', 'ｹﾒ (ccTLD)', $SAMPLES, '', 0, $Limit_Domain, \@host_dm);
  427.     undef @host_dm;
  428.     print "\n\n<BR>\n\n<A name=jp></A>\n";
  429.     &Macro_PutTable_a(2, 'ｹ筵ﾉ･皈､･ｷﾗ', 'ﾂ2･･ﾙ･･ﾉ･皈､･', $COUNT_JP, 'ﾆﾋﾜ､ｫ､', $COUNT_JP, 0, \@host_dm_jp);
  430.     undef @host_dm_jp;
  431.     print "\n\n<BR>\n\n<A name=us></A>\n";
  432.     &Macro_PutTable_a(2, 'ﾊﾆｹﾉ･皈､･ｷﾗ', 'ｽﾂｰﾁﾈｿ･ (gTLD)', $COUNT_US, 'ﾊﾆｹｫ､', $COUNT_US, 0, \@host_dm_us);
  433.     undef @host_dm_us;
  434.     print "\n</TD></TR></TABLE></CENTER><BR>\n\n";
  435. }
  436.  
  437. ### ･ﾖ･鬣ｦ･ｶｷﾏ
  438. if (($P{MODE} eq 'ua') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  439.     print "<!-- ･ﾖ･鬣ｦ･ｶﾅｷﾗ -->\n<CENTER><TABLE border=0 cellpadding=8><TR><TD valign=top>\n<A name=ua></A>\n";
  440.     &Macro_PutTable_a(0, '･ﾖ･鬣ｦ･ｶﾅｷﾗ', '･ｨ｡ｼ･ｸ･ｧ･ﾈﾌｾｾﾎ', $SAMPLES, '', 0, $Limit_Agent, \@agent);
  441.     undef @agent;
  442.     print "\n</TD><TD valign=top>\n<A name=share_ie></A>\n";
  443.     &Macro_PutTable_a(2, 'IEﾆｱｻﾎ､ﾎ･ｷ･ｧ･｢', 'IE･ﾐ｡ｼ･ｸ･逾', $COUNT_IE, 'IEﾁ暠', $COUNT_IE, 0, \@agent_ie);
  444.     undef @agent_ie;
  445.     print "\n\n<BR>\n\n<A name=share_nn></A>\n";
  446.     &Macro_PutTable_a(2, 'NNﾆｱｻﾎ､ﾎ･ｷ･ｧ･｢', 'NN･ﾐ｡ｼ･ｸ･逾', $COUNT_NN, 'NNﾁ暠', $COUNT_NN, 0, \@agent_nn);
  447.     undef @agent_nn;
  448.     print "\n\n<BR>\n\n<A name=share_os></A>\n";
  449.     &Macro_PutTable_a(0, 'ﾍﾑOSﾅｷﾗ', 'OSｼﾊﾌ(ｳｵｻｻ)', $COUNT_OS, '', 0, 0, \@agent_os);
  450.     undef @agent_os;
  451.     print "\n</TD></TR></TABLE></CENTER><BR>\n\n";
  452. }
  453.  
  454. if (($P{MODE} eq 'screen') || ($P{MODE} eq 'all') || ($P{MODE} eq 'solo_analyze') || ($P{MODE} eq 'solo_all')) {
  455.     print "<!-- ｲ靂ﾌｾﾏ -->\n<CENTER><TABLE border=0 cellpadding=8><TR><TD valign=top>\n<A name=screen></A>\n";
  456.     &Macro_PutTable_a(0, 'ｲ靂ﾌｾｷﾗ', 'ｲ靂ﾌｾ', $COUNT_SCREEN, '', 0, 0, \@screen);
  457.     undef @screen;
  458.     print "\n</TD><TD valign=top>\n<A name=screen_size></A>\n";
  459.     &Macro_PutTable_a(0, '･ｵ･､･ｺﾊﾌﾅｷﾗ', 'ｲ｣ x ｽﾄ', $COUNT_SCREEN_SIZE, '', 0, 0, \@screen_size);
  460.     undef @screen_size;
  461.     print "\n</TD><TD valign=top>\n<A name=screen_color></A>\n";
  462.     &Macro_PutTable_a(0, 'ｿｧｿｼﾅﾙﾊﾌﾅｷﾗ', 'ｿｧｿ', $COUNT_SCREEN_COLOR, '', 0, 0, \@screen_color);
  463.     undef @screen_color;
  464.     print "\n</TD></TR></TABLE></CENTER><BR>\n\n";
  465. }
  466.  
  467.  
  468. ### ｷﾗｻｻｻｴﾖﾂｬﾄｽｪﾎｻ
  469. if ($DoPutBenchmark) {
  470.     $CPU_end = (times)[0];
  471.     printf("<DIV align=right>ｾﾃﾈｴﾖ｡ｧ %.3f CPUﾉﾃ</DIV>\n",$CPU_end-$CPU_start);
  472. }
  473.  
  474.  
  475. ;#--------------------------------------------------------------------
  476. ;#･ﾞ･ｯ･
  477. ;#--------------------------------------------------------------------
  478. ;### ﾀｸ･愠ｰ､ﾎ･･ｹ･ﾈ､釥･ﾞ･ｯ･
  479. sub Macro_CountRawlog {
  480.     $work{'agent'} = $agent;
  481.     $work{'agent'} =~ s'^!'Mozilla/';
  482.     $work{'agent'} =~ s"\(!(.+)\)"\(compatible; MSIE $1\)";
  483.     $work{'ref'} = $ref;
  484.     $work{'ref'} =~ s'^!'http://';
  485.     $work{'date'} = &func::MakeDate($date);
  486.  
  487.     if (($DoLink) && ($work{'ref'} =~ /^http/)) {
  488.         $work{'ref'} = &func::MakeLink($work{'ref'}, 2) 
  489.     } else {
  490.         $work{'ref'} = &func::URLdecode($work{'ref'})
  491.     }
  492.  
  493.     if ($screen eq '-') {
  494.         $work{'screen'} = '-';
  495.     } else {
  496.         split(/,/, $screen);
  497.         $_[0] = &func::C62_Decode($_[0]);
  498.         $_[1] = &func::C62_Decode($_[1]);
  499.         $_[2] = &func::C62_Decode($_[2]);
  500.         $work{'screen'} = "$_[0]x$_[1]x$_[2]";
  501.     }
  502.  
  503.     $RAWLOG{$filename} .= "[$num] $work{'date'} $host $work{'screen'}\n\t$work{'agent'}\n\t$work{'ref'}\n\n";
  504.     ++$COUNT_RAWLOG;
  505. }
  506.  
  507.  
  508. ;### ｻｲｾﾈｸｵ､ｫ･ｦ･ﾈ､ｹ､･ﾞ･ｯ･
  509. sub Macro_CountRef {
  510.     # ･ｵ｡ｼ･ﾁ･ｨ･ｸ･ｫ､
  511.     if    ($ref =~ '^!\w+\.tinami\.com/')
  512.         { $flag =  1; ++$REF_SEARCH_SHARE{'TINAMI'}; }
  513.  
  514.     elsif ($ref =~ '\.surpara\.')
  515.         { $flag =  2; ++$REF_SEARCH_SHARE{'Surfers Paradice'}; }
  516.  
  517.     elsif ($ref =~ '^!dir\.yahoo\.')
  518.         { $flag =  3; ++$REF_SEARCH_SHARE{'Yahoo!(Directory)'}; }
  519.  
  520.     elsif (($ref =~ '^!\w+\.goo\.ne\.jp/'))
  521.         { $flag =  4; ++$REF_SEARCH_SHARE{'goo'}; }
  522.  
  523.     elsif ($ref =~ '^!\w+\.infoseek\.')
  524.         { $flag =  5; ++$REF_SEARCH_SHARE{'Infoseek'}; }
  525.  
  526.     elsif ($ref =~ '^!\w+\.msn\.')
  527.         { $flag =  6; ++$REF_SEARCH_SHARE{'MSN'}; }
  528.  
  529.     elsif ($ref =~ '^!\w+\.google\.')
  530.         { $flag =  7; ++$REF_SEARCH_SHARE{'Google'}; }
  531.  
  532.     elsif ($ref =~ '^!infonavi\.infoweb\.ne\.jp/')
  533.         { $flag = 8; $REF_SEARCH_SHARE{'InfoNavigator'}; }
  534.  
  535.     elsif ($ref =~ '^!\w+\.lycos\.')
  536.         { $flag =  9; ++$REF_SEARCH_SHARE{'Lycos'}; }
  537.  
  538.     elsif (($ref =~ '^!\w+\.fresheye\.') || ($ref =~ '^!\w+\.jplaza\.'))
  539.         { $flag = 10; ++$REF_SEARCH_SHARE{'Fresheye'}; }
  540.  
  541.     elsif ($ref =~ '^!kensaku\.org')
  542.         { $flag = 11; ++$REF_SEARCH_SHARE{'RingRing'}; }
  543.  
  544.     elsif ($ref =~ '^!\w+\.excite\.')
  545.         { $flag = 12; ++$REF_SEARCH_SHARE{'excite'}; }
  546.  
  547.     elsif ($ref =~ '^!\w+\.altavista\.')
  548.         { $flag = 13; ++$REF_SEARCH_SHARE{'altavista'}; }
  549.  
  550.     elsif ($ref =~ '^!search\.odn\.ne\.jp/')
  551.         { $flag = 14; ++$REF_SEARCH_SHARE{'ODN'}; }
  552.  
  553.     elsif ($ref =~ '^!\w+\.search\.biglobe\.ne\.jp/')
  554.         { $flag = 15; ++$REF_SEARCH_SHARE{'Biglobe'}; }
  555.  
  556.     elsif ($ref =~ '^!search\.yahoo\.')
  557.         { $flag = 16; ++$REF_SEARCH_SHARE{'Yahoo!(Keyword)'}; }
  558.  
  559.     elsif ($ref =~ '^!google\.yahoo\.')
  560.         { $flag = 17; ++$REF_SEARCH_SHARE{'Yahoo!(Google)'}; }
  561.  
  562.  
  563.     # ﾄﾌｾ､ﾎURL
  564.     else {
  565.         $flag = 0;
  566.         $flg = 0;
  567.  
  568.         # ｼｫ･ｵ･､･ﾈ､ｫ･ﾁ･ｧ･ﾃ･ｯ
  569.         foreach (@MySite) {
  570.             if ($ref =~ /^$_/) {
  571.                 $ref =~ s/^$_//;
  572.                 $ref = '/' if ($ref eq '');
  573.                 ++$REF_OWN{"$ref <B>>> $filename</B>"};
  574.                 ++$REF{'-own-'};
  575.                 $flg = 1;
  576.                 last;
  577.             }
  578.         }
  579.         ++$REF{$ref} if ($flg == 0);
  580.     }
  581.  
  582.     # ･ｵ｡ｼ･ﾁ･ｨ･ｸ･ｭ｡ｼ･｡ｼ･ﾉｿｶ､ﾊｬ､ｱ
  583.     if ($flag > 0) {
  584.         ++$REF{'-search-'};
  585.         split(/&/, $ref);
  586.         foreach $_ (@_) {
  587.             s/%20|\+|\|/ /gi;                                # ｽ靉ﾂｮﾅﾙ､ﾎｴﾘｷｸ､ﾇ､ｫ､ﾊ､ﾛ｣ﾋ
  588. #            s/%81@|%81b|\+|\|/ /gi;                                # ｽ靉ﾂｮﾅﾙ､ﾎｴﾘｷｸ､ﾇ､ｫ､ﾊ､ﾛ｣ﾋ
  589.  
  590.             # TINAMI
  591.             if ($flag == 1) {
  592.                 ++$REF_TINAMI{$1} if (/(\w\w)=yes/ || /word=(.+)/);
  593.                 ++$REF_TINAMI{"[Charlotte] $1"} if (/key=(.+)/);
  594.             }
  595.  
  596.             # Surfers Paradice
  597.             elsif ($flag == 2) {
  598.                 ++$REF_SP{$1}    if ((/J=(.+)/) || (/search=(.+)/));
  599.             }
  600.  
  601.             # Yahoo!
  602.             elsif ($flag == 3) {
  603.                 ++$REF_SEARCH{$1}    if (/p=(.+)/);
  604.                 ++$REF_SEARCH{"<I>[Yahoo C]</I> $1"}    if (/r=(.+)/);
  605.             }
  606.  
  607.             # goo
  608.             elsif ($flag == 4) {
  609.                 ++$REF_SEARCH{$1}    if (/MT=(.+)/ || /AW\w=(.+)/);
  610.             }
  611.  
  612.             # infoseek
  613.             elsif ($flag == 5) {
  614.                 ++$REF_SEARCH{$1}    if (/qt=(.+)/ || /oq=(.+)/);
  615.             }
  616.  
  617.             # MSN, Biglobe
  618.             elsif (($flag == 6) || ($flag == 15)) {
  619.                 ++$REF_SEARCH{$1}    if (/q=(.+)/ || /aq=(.+)/ || /MT=(.+)/);
  620.             }
  621.  
  622.             # Google, excite, altavista
  623.             elsif (($flag == 7) || ($flag == 12) || ($flag == 13)) {
  624.                 ++$REF_SEARCH{$1}    if (/q=(.+)/);
  625.             }
  626.  
  627.             # infoweb, ODN
  628.             elsif (($flag == 8) || ($flag == 14)) {
  629.                 ++$REF_SEARCH{$1}    if (/QueryString=(.+)/ || /OLDQUERYDISPLAY=(.+)/);
  630.             }
  631.  
  632.             # lycos
  633.             elsif ($flag == 9) {
  634.                 ++$REF_SEARCH{$1}    if (/query=(.+)/);
  635.             }
  636.  
  637.             # fresheye
  638.             elsif ($flag == 10) {
  639.                 ++$REF_SEARCH{$1}    if (/kw=(.+)/);
  640.             }
  641.  
  642.             # RingRing
  643.             elsif ($flag == 11) {
  644.                 ++$REF_SEARCH{$1}    if (/key=(.+)/);
  645.             }
  646.  
  647.             # Yahoo! (search, google)
  648.             elsif (($flag == 16) || ($flag == 17)) {
  649.                 ++$REF_SEARCH{$1}    if (/p=(.+)/);
  650.             }
  651.         }
  652.     }
  653.     # ++$REF{$ref};
  654. }
  655.  
  656.  
  657. ;### ･ﾛ･ｹ･ﾈﾌｾ､ﾎｷﾁｼｰ､ｪﾊﾌ､ｷ･ｫ･ｦ･ﾈ､ｹ､･ﾞ･ｯ･
  658. sub Macro_CountHost {
  659.     split(/\./, $host);
  660.  
  661.     if (($host eq '') || ($host eq '-')) {                        #'-'､ｷ､ｫ､ﾊ､ｫ､ﾃ､ｿ､
  662.         ++$HOST_DM{'-'};
  663.     }
  664.  
  665.     ### FQDN
  666.     elsif ($_[$#_] =~ /[a-z]$/) {
  667.         ## ccTLD
  668.         if (length($_[$#_]) == 2) {
  669.             ++$HOST_DM{ $_[$#_] };
  670.             $host = "*.$_[$#_-2].$_[$#_-1].$_[$#_]";
  671.  
  672.             # ﾆﾋﾜ､ﾏﾇｰﾆ､
  673.             if ($_[$#_] eq 'jp') { ++$HOST_DM_JP{$_[$#_-1]}; }
  674.         }
  675.  
  676.         ## gTLD
  677.         else {
  678.             ++$HOST_DM{'us'};
  679.             ++$HOST_DM_US{ $_[$#_] };
  680.             $host = "*.$_[$#_-1].$_[$#_]";
  681.         }
  682.     }
  683.  
  684.     ### IP
  685.     else {
  686.         ++$HOST_DM{'ipaddr'};
  687.         $host = "$_[$#_-3].$_[$#_-2].$_[$#_-1].*";
  688.     }
  689.  
  690.     ++$HOST{$host};
  691. }
  692.  
  693.  
  694. ;### ･ｨ｡ｼ･ｸ･ｧ･ﾈﾌｾ､ｪﾊﾌ､ｷ･ｫ･ｦ･ﾈ､ｹ､･ﾞ･ｯ･
  695. sub Macro_CountAgent {
  696.     ### Mozzilaｷﾏ
  697.     if ($agent =~ /^!/) {
  698.         $agent =~ '^!([\w.-]+)\s';                    # NN､ﾎ･皈ｸ･罍ｼ･ﾐ｡ｼ･ｸ･逾ﾇﾅｷﾗ
  699.         $nnver = $1;
  700.  
  701.         $agent =~ /\((.*)\)/;                        # ﾃ晴眄ﾊﾌｩ､ﾋﾄｴ､ﾙ､ｽ猜
  702.         split(/; /, $1);
  703.  
  704.         # IEｷﾏ
  705.         if ($_[0] =~ /^!([\w.-]+)/) {
  706.             # NetCaptor
  707.             if ($_[2] =~ /^NetCaptor/) {
  708.                 ++$AGENT{'NetCaptor'};
  709.             }
  710.  
  711.             # ｽ紵E
  712.             else {
  713.                 ++$AGENT{'Internet Explorer'};        # IEﾁｴﾂﾎ､ﾎ･ｷ･ｧ･｢
  714.                 ++$AGENT_IE{$1};                    # IE､ﾎ･皈ｸ･罍ｼ･ﾐ｡ｼ･ｸ･逾
  715.  
  716.                 ### IE､ﾎｾｹ遉ﾎOSﾅｷﾗ
  717.                 if    ($_[1] eq 'Windows 98')     { ++$AGENT_OS{'Windows 98'}; }
  718.                 elsif ($_[1] eq 'Windows NT 5.0') { ++$AGENT_OS{'Windows 2000'}; }
  719.                 elsif ($_[1] eq 'Windows 95')     { ++$AGENT_OS{'Windows 95'}; }
  720.                 elsif ($_[1] eq 'Windows NT 4.0') { ++$AGENT_OS{'Windows NT'}; }    # ﾂｿﾊｬ
  721.                 elsif ($_[1] eq 'Windows NT')     { ++$AGENT_OS{'Windows NT'}; }
  722.                 elsif ($_[1] =~ /^MSN|^AOL/)      { ++$AGENT_OS{$_[2]}; }
  723.                 elsif ($_[1] eq 'Mac_PowerPC')    { ++$AGENT_OS{'Macintosh'}; }
  724.                 elsif ($_[1] eq 'Win32')          { ++$AGENT_OS{'Windows 95'}; }    # ﾂｿﾊｬ
  725.                 elsif ($_[1] eq 'Windows 3.1')    { ++$AGENT_OS{'Windows 3.1'}; }
  726.                 # else { ++$AGENT_OS{'-etc-'}; print "$agent<BR>\n"; }
  727.             }
  728.         }
  729.  
  730.         # NNｷﾏ
  731.         elsif (($_[1] =~ /\bI\b/) || ($_[1] =~ /\bU\b/) || ($_[1] =~ /\bN\b/)) {
  732.             ++$AGENT{'Netscape Navigator'};        # NNﾁｴﾂﾎ､ﾎ･ｷ･ｧ･｢
  733.             ++$AGENT_NN{$nnver};
  734.  
  735.             ### OSﾅｷﾗ
  736.             if    (($_[0] eq 'Win98') || ($_[2] eq 'Win98'))
  737.                 { ++$AGENT_OS{'Windows 98'}; }
  738.             elsif (($_[0] eq 'Windows NT 5.0') || ($_[2] eq 'Windows NT 5.0'))
  739.                 { ++$AGENT_OS{'Windows 2000'}; }
  740.             elsif (($_[0] eq 'Win95') || ($_[2] eq 'Win95'))
  741.                 { ++$AGENT_OS{'Windows 95'}; }
  742.             elsif (($_[0] eq 'WinNT') || ($_[2] eq 'WinNT'))
  743.                 { ++$AGENT_OS{'Windows NT'}; }
  744.             elsif (($_[0] eq 'WinNT4.0') || ($_[2] eq 'WinNT4.0'))
  745.                 { ++$AGENT_OS{'Windows NT'}; }
  746.             elsif (($_[0] eq 'Macintosh') || ($_[2] eq 'Macintosh'))
  747.                 { ++$AGENT_OS{'Macintosh'}; }
  748.             elsif (($_[0] eq 'Win16') || ($_[2] eq 'Win16'))
  749.                 { ++$AGENT_OS{'Windows 3.1'}; }
  750.             elsif ($_[0] eq 'OS/2')
  751.                 { ++$AGENT_OS{'OS/2'}; }
  752.             # Xﾃｼﾋﾎｾｹ遉ﾏ､筅ｦｾｯ､ｷｻﾅﾊｬ､ｱ､
  753.             elsif ($_[0] eq 'X11')
  754.                 { $_[2] =~ /^([^\s]+)/; ++$AGENT_OS{$1}; }
  755.             # else { ++$AGENT_OS{'-etc-'}; print "$agent<BR>\n"; }
  756.         }
  757.  
  758.         # ､ｽ､ﾎﾂｾ･ｳ･ﾑ･ﾁ
  759.         elsif ($_[0] eq 'compatible') {
  760.             if ($_[1] =~ '^([^/]*)/.*') {        # ver.ﾉｽｵｭ､ｬ､｢､､ﾃ､ﾝ､､
  761.                 ++$AGENT{$1};                    # ver.ﾉｽｵｭ､､
  762.             } else {
  763.                 ++$AGENT{$_[1]};                # ､ｽ､ﾎ､ﾞ､ﾞｺﾎﾍﾑ
  764.             }
  765.         }
  766.  
  767.         # ､ｽ､ｦ､､､ｦ､､ｱ､ﾇ､筅ﾊ､､ﾈｯ､ﾊﾎｩｾ､ﾎ､荀ﾄ
  768.         else {
  769.             if ($_[0] =~ "^DreamPassport/") {
  770.                 ++$AGENT{'DreamPassport'};
  771.             } elsif ($_[0] =~ "^PNWalker/") {
  772.                 ++$AGENT{'PNWalker'};
  773.             } elsif (($nnver == 3.01) && (!$_[1])) {    # CacheFlow
  774.                 ++$AGENT{'CacheFlow'};
  775.             } else {                                    # ﾋﾜﾅﾋ･ﾞ･､･ﾊ｡ｼ｡ｩ
  776.                 ++$AGENT{'-etc-'};
  777.             }
  778.         }
  779.     }
  780.  
  781.     ### Mozilla､ｾｾ隍鬢ﾊ､､ﾆﾈﾎｩｷﾏ
  782.     else {
  783.         if ($agent =~ '^([^/]*)/.*') {            # ver.ﾉｽｵｭ､ｬ､｢､､ﾃ､ﾝ､､
  784.             ++$AGENT{$1};                        # ver.ﾉｽｵｭ､､
  785.         } else {
  786.             ++$AGENT{$agent};                    # ､ｽ､ﾎ､ﾞ､ﾞｺﾎﾍﾑ
  787.         }
  788.     }
  789. }
  790.  
  791.  
  792. ;### ｲ靂ﾌｾｫ･ｦ･ﾈ､ｹ､･ﾞ･ｯ･
  793. sub Macro_CountScreen {
  794.     unless (($screen eq '') || ($screen eq '-')) {
  795.         split(/,/, $screen);
  796.         $_[0] = &func::C62_Decode($_[0]);
  797.         $_[1] = &func::C62_Decode($_[1]);
  798.         $_[2] = &func::C62_Decode($_[2]);
  799.         ++$SCREEN{"$_[0]x$_[1]x$_[2]"};
  800.         ++$SCREEN_SIZE{"$_[0]x$_[1]"};
  801.         ++$SCREEN_COLOR{"$_[2]"};
  802.     }
  803. }
  804.  
  805.  
  806. ;### ･ｳ｡ｼ･ﾉ､莊ｭｹ讀ﾕﾌ｣､｢､ﾊｸｻ昀ﾋﾊﾑｴｹ､ｹ､
  807. sub Macro_ChangeList {
  808.     ### ｻｲｾﾈｸｵ
  809.     foreach (@ref) {
  810.         ($n, $data) = split(/\t/);
  811.  
  812.         if ($data eq '-') {
  813.             $data = '･ﾖ･ﾃ･ｯ･ﾞ｡ｼ･ｯ｡ｦ､ｪｵ､､ﾋﾆ､熙ｫ､ / ･愠ﾜ･ﾃ･ﾈ｡ｦｽ茣ｽ･ﾕ･ﾈ / URLﾄｾﾂﾇ､ﾁ / ｻｲｾﾈｸｵ､｣ﾊﾃ､ｷ､ﾆ､ﾎ･｢･ｯ･ｻ･ｹ';
  814.         } elsif ($data eq 'noscript') {
  815.             $data = 'JavaScript､ﾘｻﾟ｡｢ﾋﾏｻﾈﾍﾑｽﾐﾍ隍ﾊ､､･ﾖ･鬣ｦ･ｶ､ﾋ､隍ｻｲｾﾈｸｵｼ霹ﾀｼｺﾇﾔ';
  816.         } elsif ($data eq '-own-') {
  817.             $data = 'ｼｫ･ｵ･､･ﾈﾆ筅ﾇ､ﾎｰﾜﾆｰ';
  818.         } elsif ($data eq '-search-') {
  819.             $data = '(efStat､ﾋﾅﾐﾏｿ､ｵ､､ﾆ､､､)･ｵ｡ｼ･ﾁ･ｨ･ｸ･ｫ､';
  820.         } else {
  821.             $data =~ s"^!"http://";
  822.             if (($DoLink) && ($data =~ /^http/)) {
  823.                 $data = &func::MakeLink($data, 1);
  824.             } else {
  825.                 $data = &func::URLdecode($data);
  826.             }
  827.         }
  828.  
  829.         $_ = "$n\t$data";
  830.     }
  831.  
  832.     ### ･ｵ･､･ﾈﾆ箍ﾜﾆｰﾊｬﾀﾏ
  833.     &change_a(\@ref_own);
  834.  
  835.     ### ･ｵ｡ｼ･ﾁ･ｨ･ｸ･
  836.     &change_a(\@ref_search);
  837.  
  838.     ### TINAMI･ｫ･ﾆ･ｴ･
  839.     foreach (@ref_tinami) {
  840.         ($n, $data) = split(/\t/);
  841.  
  842.         if ($TABLE{'tinami'}{$data}) {
  843.             $data = "[C] $TABLE{'tinami'}{$data}";
  844.         } else {
  845.             $data = &func::URLdecode($data);
  846.         }
  847.  
  848.         $_ = "$n\t$data";
  849.     }
  850.  
  851.     ## Surfers Paradice
  852.     &change_a(\@ref_sp);
  853.  
  854.  
  855.     ### ･ｫ･ﾈ･遙ｼ･ｳ｡ｼ･ﾉ
  856.     foreach (@host_dm) {
  857.         ($n, $data) = split(/\t/);
  858.  
  859.         if ($data eq 'ipaddr') {
  860.             $data = "･ﾉ･皈､･ｽﾊﾌ､ﾇ､ｭ､ｺ (<B>IP･｢･ﾉ･･ｹ</B>)";
  861.         } elsif ($data eq '-') {
  862.             $data = "<B><FONT SIZE=+1>[ｷﾙｹ IPｵｭﾏｿﾌｵ､ｷ</FONT><BR>(･ｫ･ｦ･ｿ､ELNET､ｫ､鯑ｾﾀﾜｼﾂｹﾔ?)</B>";
  863.         } elsif ($TABLE{'cctld'}{$data}) {
  864.             $data = "$TABLE{'cctld'}{$data} (\*.<B>${data}<\/B>)";
  865.         } else {
  866.             $data = "ﾌ､ﾄｵﾁ､ﾎｹﾒ･ｳ｡ｼ･ﾉ (*.<B>${data}<\/B>)";
  867.         }
  868.  
  869.         $_ = "$n\t$data";
  870.     }
  871.  
  872.     ## ﾆﾋﾜﾂ2･･ﾙ･･ﾉ･皈､･
  873.     foreach (@host_dm_jp) {
  874.         ($n, $data) = split(/\t/);
  875.  
  876.         if ($TABLE{'jpdomain'}{$data}) {
  877.             $data = "$TABLE{'jpdomain'}{$data} (\*.<B>${data}<\/B>.jp)";
  878.             $_ = "$n\t$data";
  879.         }
  880.     }
  881.  
  882.     ## ﾊﾆｹ2･･ﾙ･･ﾉ･皈､･
  883.     foreach (@host_dm_us) {
  884.         ($n, $data) = split;
  885.  
  886.         if ($TABLE{'gtld'}{$data}) {
  887.             $data = "$TABLE{'gtld'}{$data} (\*.<B>${data}<\/B>)";
  888.             $_ = "$n\t$data";
  889.         }
  890.     }
  891.  
  892.     ### User Agent
  893.     foreach (@agent) {
  894.         ($n, $data) = split(/\t/);
  895.  
  896.         if ($data eq '-etc-') {
  897.             $data = "､ｽ､ﾎﾂｾ";
  898.         } elsif ($data eq '-') {
  899.             $data = "ﾌｾｾﾎﾉﾔﾌﾀ";
  900.         } elsif ($TABLE{'agent'}{$data}) {
  901.             $data = "${data}<BR>$TABLE{'agent'}{$data}";
  902.         }
  903.  
  904.         $_ = "$n\t$data";
  905.     }
  906.  
  907.     foreach (@screen_color) {
  908.         ($n, $data) = split;
  909.  
  910.         $data = "${data}bit";
  911.         $_ = "$n\t$data";
  912.     }
  913.  
  914.     sub change_a {
  915.         my($array) = @_;
  916.         my($line, $n, $data);
  917.         foreach $line (@$array) {
  918.             ($n, $data) = split(/\t/, $line);
  919.             $data = &func::URLdecode($data);
  920.             $line = "$n\t$data";
  921.         }
  922.     }
  923. }
  924.  
  925.  
  926. ;### ｽﾐﾎﾏﾍﾑ､ﾎ･ﾆ｡ｼ･ﾖ･､釥
  927. ;### ﾉｽｼｨ･筍ｼ･ﾉ, ﾉｽﾂ, ｹ猯ﾜ, ｳ荀ｿ, ﾉ鄧猯ﾜ1, ﾉ鄧猯ﾜ2(ｳ荀ｿ), ﾉｽｼｨｲｼｸﾂ, ﾉｽｼｨ､ｵ､ｻ､ﾇﾛﾎ
  928. sub Macro_PutTable_a {
  929.     my($mode, $title, $item, $div, $sub1, $sub2, $limit, $array) = @_;
  930.     my($buf, $n, $data, $line, $ave, $width);
  931.  
  932.     unless (@$array == ()) {
  933.         if (($sub2==0) || ($SAMPLES==0)) { $ave = 0; }                            #0ｽｻｻﾂﾐｺ
  934.         else { $ave = sprintf("%2.1f", ($sub2*100)/$SAMPLES); }
  935.  
  936.         ### ﾉｽﾂ
  937.         print "<TABLE border=1 cellspacing=0 cellpadding=1${tbc[5]}>\n";
  938.  
  939.         print "\t<TR><TH nowrap colspan=2${tbc[0]}><A HREF=\"#menu\"><FONT size=+1>｢｣ $title ｢｣</FONT></A><BR>";
  940.         if    ($mode == 0) { print "<FONT size=-1>(･ｵ･ﾗ･ﾁ暠 : $div)</FONT>"; }                                                                                #ﾄﾌｾﾉｽｼｨ
  941.         elsif ($mode == 1) { print "(<SUP>$sub1 : $sub2 ($ave%)</SUP> / <SUB>ﾁｴﾂﾎ : $SAMPLES</SUB>)<BR><FONT size=-1>(ﾍｭｸ妺ｵ･ﾗ･ﾁ暠 : $div)</FONT>"; }        #TINAMI,SPﾊｬﾀﾏﾍﾑ
  942.         elsif ($mode == 2) { print "(<SUP>$sub1 : $sub2 ($ave%)</SUP> / <SUB>ﾁｴﾂﾎ : $SAMPLES</SUB>)"; }                                                            #ｹ筵ﾉ･皈､･,IE･ｷ･ｧ･｢,NN･ｷ･ｧ･｢ﾍﾑ
  943.         print "</TH></TR>\n";
  944.  
  945.         ### ﾉｽ､ﾎｹ猯ﾜ
  946.         print "\t<TR><TH nowrap${tbc[1]}>ｷｿ</TH>";
  947.         print "<TH${tbc[2]}>$item</TH></TR>\n";
  948.  
  949.         ### ﾉｽ､ﾎﾃ豼ﾈ
  950.         foreach $line (@$array) {
  951.             ($n, $data) = split(/\t/, $line);
  952.             $n = int($n);
  953.  
  954.             if (($n==0) || ($div==0)) { $ave = 0; }
  955.             else {
  956.                 $ave_old = $ave;
  957.                 $ave = sprintf("%2.1f",($n*100)/$div);
  958.                 $width = int($ave);
  959.                 $width = 1 if ($width < 1);
  960.             }
  961.  
  962.             print "\t<TR><TD>";
  963.             print "<IMG src=\"lib/b.gif\" height=10 width=${width}>" if ($DoPutGraph);
  964.             print " $n";
  965.             if ($ave_old != $ave) { print " ($ave%)"; }
  966.             print "</TD>";
  967.  
  968.             print "<TD${tbc[6]}>${data}</TD></TR>\n";
  969.         }
  970.  
  971.         ### ﾉｽｼｨｲｼｸﾂ､ｬｻﾘﾄ熙ｵ､､ﾆ､､､ｾｹ遑｢ﾃ晴皃ｽｼｨ
  972.         print "\t<TR><TD colspan=2 align=right${tbc[0]}><FONT size=-1><B>$limitｷｰﾊｲｼｾﾊﾎｬ</B></FONT></TD></TR>\n" unless ($limit == 0);
  973.         print "</TABLE>\n";
  974.     }
  975. }
  976.  
  977.  
  978. ;### ･ｫ･ｦ･ｿｽｸｷﾗﾉｽ - ｲ｣ﾃﾖ､ｭ
  979. ;### ﾉｽｼｨ･ｿ･､･ﾗ, ｹ猯ﾜｼﾊﾌ, ﾏ｢ﾁﾛﾇﾛﾎ
  980. ;### ･ｿ･､･ﾗ: 0=ﾄﾌｾ, 1=[･ｵ･､･ﾈﾁｴﾂﾎ]､ｬ､ﾊ､､, 2=[ｷﾗ]､ｬ､ﾊ､､, 3=ﾎｾﾊﾌｵ､､
  981. sub Macro_PutTable_b {
  982.     my($type, $ptr, $hash) = @_;
  983.     my($colspan, @sum);
  984.  
  985.     if   (($type==2) || ($type==3)) {                        #[･ﾚ｡ｼ･ｸｷﾗ]､ｽｼｨ､ｷ､ﾊ､､
  986.         $colspan = @$ptr;
  987.     } else { $colspan = @$ptr+1; }
  988.  
  989.     ### ｹ猯ﾜ(ﾉｽﾂ)
  990.     print "<TABLE border=1 cellspacing=0 cellpadding=1${tbc[6]}>\n";
  991.     print "\t<TR><TH colspan=${colspan}${tbc[0]}><A href=\"#menu\"><FONT size=+1>｢｣ $ptr->[0] ｢｣</FONT></A></TH></TR>\n";
  992.  
  993.     ### ｹﾔ : ｹ猯ﾜ
  994.     print "\t<TR${tbc[5]}><TH nowrap${tbc[1]}>｡｡</TH>";
  995.     for ($i=1 ; $i < @$ptr ; $i++) { print "<TH>$ptr->[$i]</TH>"; }
  996.     ### ﾎ : ･ﾚ｡ｼ･ｸｷﾗ
  997.     print "<TH${tbc[4]}>･ﾚ｡ｼ･ｸｷﾗ</TH>" unless (($type==2) || ($type==3));
  998.     print "</TR>\n";
  999.  
  1000.     ### ｹﾔ : ﾆ簣ﾆ
  1001.     foreach (@filename) {
  1002.         print "\t<TR align=right><TH${tbc[2]}>$_</TH>";
  1003.  
  1004.         split(/\t/, $$hash{ $_ });
  1005.         foreach (@_) {
  1006.             $_ = &func::C62_Decode($_);
  1007.         }
  1008.         $all = &func::CalcSum(@_);
  1009.  
  1010.         for ($i=0 ; $i < @$ptr-1 ; $i++) {
  1011.             if (($_[$i]==0) || ($all==0)) { $ave = 0; }
  1012.             else {
  1013.                 $ave = sprintf("%2.1f",($_[$i]*100)/$all);
  1014.             }
  1015.             $height = int($ave);
  1016.             $height = 1 if ($height < 1);
  1017.  
  1018.             print "<TD valign=\"bottom\">";
  1019.             print "<IMG src=\"lib/b.gif\" height=${height} width=10 alt=\"$ave%\"><BR>" if ($DoPutGraph);
  1020.             print "$_[$i]";
  1021.             print "</TD>";
  1022.             $sum[$i] += $_[$i];
  1023.         }
  1024.         ### ﾎ : [･ﾚ｡ｼ･ｸｷﾗ]
  1025.         unless (($type==2) || ($type==3)) {
  1026.             print "<TH${tbc[8]}>$all</TH>";
  1027.         }
  1028.         print "</TR>\n";
  1029.     }
  1030.  
  1031.     ### ｹﾔ : ･ｵ･､･ﾈﾁｴﾂﾎ
  1032.     unless (($type==1) || ($type==3)) {
  1033.         print "\t<TR align=right${tbc[7]}><TH nowrap${tbc[3]}>･ｵ･､･ﾈｷﾗ</TH>";
  1034.         $all = &func::CalcSum(@sum);
  1035.         foreach (@sum) {
  1036.             if (($_==0) || ($all==0)) { $ave = 0; }
  1037.             else {
  1038.                 $ave = sprintf("%2.1f",($_*100)/$all);
  1039.             }
  1040.             $height = int($ave);
  1041.             $height = 1 if ($height < 1);
  1042.  
  1043.             print "<TH valign=\"bottom\">";
  1044.             print "<IMG src=\"lib/b.gif\" height=${height} width=10 alt=\"$ave%\"><BR>" if ($DoPutGraph);
  1045.             print "$_";
  1046.             print "</TH>";
  1047.         }
  1048.         ### ﾎ : ｸ｡ｻｻﾉ ([･ﾚ｡ｼ･ｸｷﾗ] = [･ｵ･､･ﾈｷﾗ])
  1049.         printf("<TH%s>%d</TH>",${tbc[9]}, $all) unless ($type==2);
  1050.         print "<TR>\n";
  1051.     }
  1052.  
  1053.     print "</TABLE>\n";
  1054. }
  1055.  
  1056.  
  1057. ;### ･ｫ･ｦ･ｿｽｸｷﾗﾉｽ - ｲ｣ﾃﾖ､ｭ
  1058. ;### ﾉｽｼｨ･ｿ･､･ﾗ, ｹ猯ﾜｼﾊﾌ, ﾉｽﾂ, ﾃｱｰﾌ, ｹ猯ﾜｿ, ﾏ｢ﾁﾛﾇﾛﾎ
  1059. ;### ･ｿ･､･ﾗ: 0=ﾄﾌｾ, 1=[･ｵ･､･ﾈﾁｴﾂﾎ]､ｬ､ﾊ､､, 2=[ｷﾗ]､ｬ､ﾊ､､, 3=ﾎｾﾊﾌｵ､､
  1060. ;### ｸﾄﾊﾌ･筍ｼ･ﾉ: 0=ﾄﾌｾ, 1=ﾍﾋﾆﾊﾌｽｸｷﾗ, 2=ｷ鑅ﾌｽｸｷﾗ
  1061. sub Macro_PutTable_c {
  1062.     my($type, $mode, $title, $sub, $max, $assoc_array) = @_;
  1063.     my($colspan, @sum, @d, @w);
  1064.     @w=('ﾆ','ｷ','ｲﾐ','ｿ','ﾌﾚ','ｶ','ﾅﾚ');
  1065.  
  1066.     if   (($type==2) || ($type==3)) {                        #[･ﾚ｡ｼ･ｸｷﾗ]､ｽｼｨ､ｷ､ﾊ､､
  1067.         $colspan = $max+1;                                    # -> ﾎｺ､鬢ｹ
  1068.     } else { $colspan = $max+2; }
  1069.  
  1070.     ### ｹ猯ﾜ(ﾉｽﾂ)
  1071.     print "<TABLE border=1 cellspacing=0 cellpadding=1${tbc[6]}>\n";
  1072.     print "\t<TR><TH colspan=${colspan}${tbc[0]}><A href=\"#menu\"><FONT size=+1>｢｣ $title ｢｣</FONT></A></TH></TR>\n";
  1073.  
  1074.     ### ｹﾔ : ｹ猯ﾜ
  1075.     print "\t<TR${tbc[5]}><TH nowrap${tbc[1]}>｡｡</TH>";
  1076.     for ($i=0 ; $i < $max ; $i++) {
  1077.         print "<TH>";
  1078.         if    ($mode == 0) { print "$i$sub"; }                #ﾄﾌｾ
  1079.         elsif ($mode == 1) { print "$w[$i]$sub"; }            #ﾍﾋﾆﾊﾌｽｸｷﾗ
  1080.         elsif ($mode == 2) { printf("%d$sub", $i+1); }        #ｷ鑅ﾌｽｸｷﾗ
  1081.         print "</TH>";
  1082.     }
  1083.     ### ﾎ : ･ﾚ｡ｼ･ｸｷﾗ
  1084.     unless (($type==2) || ($type==3)) { print "<TH${tbc[4]}>･ﾚ｡ｼ･ｸｷﾗ</TH>"; }
  1085.     print "</TR>\n";
  1086.  
  1087.     ### ｹﾔ : ﾆ簣ﾆ
  1088.     foreach $line (@filename) {
  1089.         print "\t<TR align=right><TH${tbc[2]}>$line</TH>";
  1090.  
  1091.         split(/\t/, $$assoc_array{ $line });
  1092.  
  1093.         for ($i=0 ; $i < $max ; $i++) {
  1094.             $_[$i] = &func::C62_Decode($_[$i]);
  1095.             print "<TD>$_[$i]</TD>";
  1096.             $sum[$i] += $_[$i];
  1097.         }
  1098.         ### ﾎ : [･ﾚ｡ｼ･ｸｷﾗ]
  1099.         unless (($type==2) || ($type==3)) {
  1100.             printf("<TH%s>%d</TH>",${tbc[8]}, &func::CalcSum(@_));
  1101.         }
  1102.         print "</TR>\n";
  1103.     }
  1104.  
  1105.     ### ｹﾔ : ･ｵ･､･ﾈﾁｴﾂﾎ
  1106.     unless (($type==1) || ($type==3)) {
  1107.         print "\t<TR align=right${tbc[7]}><TH nowrap${tbc[3]}>･ｵ･､･ﾈｷﾗ</TH>";
  1108.         for ($i=0 ; $i < $#sum+1 ; $i++) { print "<TH>$sum[$i]</TH>"; }
  1109.         ### ﾎ : ｸ｡ｻｻﾉ ([･ﾚ｡ｼ･ｸｷﾗ] = [･ｵ･､･ﾈｷﾗ])
  1110.         unless ($type==2) { printf("<TH%s>%d</TH>",${tbc[9]}, &func::CalcSum(@sum)); }
  1111.         print "<TR>\n";
  1112.     }
  1113.  
  1114.     print "</TABLE>\n";
  1115. }
  1116. 1;
  1117.