スクリプト改造工房 Part3

sub Host_check{
  # カウントするホスト
  my @allowhost = (
  '.docomo.ne.jp',
  '.ezweb.ne.jp',
  '.ido.ne.jp',
  以下略
  );
  my ($stat,$pack);
  if (!$ENV{'REMOTE_HOST'}||$ENV{'REMOTE_HOST'} eq $ENV{'REMOTE_ADDR'}){
    $pack = pack('C4',split(/\./,$ENV{'REMOTE_ADDR'}));
    $ENV{'REMOTE_HOST'} = gethostbyaddr($pack,2)||return(0);
  }
  foreach (@allowhost){
     if ($ENV{'REMOTE_HOST'} =~ /$_/){
      $stat = 1;
       last;
    }
   }
   if (!$stat){return(0);}
  else{return(1);}
}

56行目に my $countstatus = &Host_check(); ←これを入れる
後76､77､81､82､114行目をそれぞれ下の様に書き換え

76 $access[$num{$act}]++  if $countstatus;
77 $access[0]++          if $countstatus;
81 $y2[7]++              if $countstatus;
82 $y2[7+$siteaccess]++  if $countstatus;
114 $access[1]++  if $countstatus;

こんな感じでどうでしょう、後は細かい所でインクリしたくなければ
if $countstatus; を足していけばokです。

# この人、インデントが変で凄く読みにくい　(-＿-...