#2009.6.6XV

$yahoourl='search.yahoo.co.jp';
$googleurl='www.google.co.jp';
$msnurl='www.bing.com';

sub RankCheckForGoogle {

$_=~ s/<h3 class="r">/<h3 class=r>/g;
@pairs = split(/<h3 class=r>/);#google͉sĂȂߕ
foreach $i (@pairs){
     &Jcode::convert(\$i, "sjis");

     $sitecount=$i;

     ($xxx, $sitecount) = split(/<div id=resultStats> /, $sitecount);#Ώۃy[W̎擾
     ($sitecount, $yyy) = split(/ <nobr/, $sitecount);
     if($sitecount ne ""){
          $sitecountgoogle=$sitecount;next;
     }
     $checkowrd1='tbs=nws:1';
     $checkowrd2='news_group';
     $checkowrd3='maps.google.co.jp';
     $checkowrd4='local_group';
     $checkowrd5='www.google.co.jp/images';
     $checkowrd6='image_result_group';
     $checkowrd7='tbs=vid:1';
     $checkowrd8='video_result_group';
     if(($i =~ /$checkowrd1/)&&($i =~ /$checkowrd2/)){
     #$sitename = "Googlej[X";
     #$siteurl = "http://www.google.co.jp/search?q=$checkkeywordencode=nws:1";
     $sitename = "";
     $siteurl = "";
      }elsif(($i =~ /$checkowrd3/)&&($i =~ /$checkowrd4/)){
     #$sitename = "GoogleӒn}";
     #$siteurl = "http://maps.google.co.jp/maps?q=$checkkeywordencode";
     $sitename = "";
     $siteurl = "";
      }elsif(($i =~ /$checkowrd5/)&&($i =~ /$checkowrd6/)){
     #$sitename = "Google摜";
     #$siteurl = "http://www.google.co.jp/images?q=$checkkeywordencode";
     $sitename = "";
     $siteurl = "";
      }elsif(($i =~ /$checkowrd7/)&&($i =~ /$checkowrd8/)){
     #$sitename = "Google挟";
     #$siteurl = "http://www.google.co.jp/search?q=$checkkeywordencode&tbs=vid:1";
     $sitename = "";
     $siteurl = "";
     }else{

     ###TCg擾
     ($bunkatsudata, $xxx) = split(/<\/a><\/h3>/, $i);
     $bunkatsudata =~ s/<em>//g;
     $bunkatsudata =~ s/<\/em>//g;
     $bunkatsudata =~ s/<b>//g;
     $bunkatsudata =~ s/<\/b>//g;
     ($xxx, $sitename) = split(/>/, $bunkatsudata);

     ###TCgURL擾
     ($xxx, $bunkatsudata) = split(/<a href="http:\/\//, $i);
     ($siteurl, $xxx) = split(/"/, $bunkatsudata);
     #$siteurl =~ s/\/\/www//g;

     }

     if(($siteurl ne "")&&($sitename ne "")){
          $count++;
          push(@checkresult, "$siteurl\",\"$sitename\",\"$checkkeyword\",\"$checkengine\",\"$count\",\"$sitecountgoogle\",\"");   
     }


}

}


sub RankCheckForYahoo {

}


sub RankCheckForMsn {

}


1;
