sub print_keyrank{ require "$EST{log_path}keyrank_ys.cgi"; print<<""; $EST{search_name} - 人気ワード ホーム > キーワードランキング

#ヘッダスペース &head_sp_i; print<<"";
##最終更新時刻を取得 {local($sec,$min,$hour,$mday,$mon,$year,$wday); ($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime((stat("$EST{log_path}keyrank_pre.cgi"))[9]); $mon++; $year+=1900; $youbi=('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday]; $last_mod=sprintf("%04d/%02d/%02d($youbi) %02d:%02d", $year,$mon,$mday,$hour,$min,); } print<<"";
▼人気ワードベスト$EST{keyrank_hyouji}
($last_mod現在)

順位:検索ワード
sub PR_keyrank_data{ local($jyuni=1,$jyuni_z=1,$bf_c,$keyrank_fl=$_[0],$openfile); if($keyrank_fl eq "pre"){$openfile="$EST{log_path}keyrank_pre.cgi";} else{$openfile="$EST{log_path}keyrank_bf.cgi";} open(IN,$openfile); local($keyword,$pt,$en_keyword,$PR_key); while(){ chop; ($keyword,$pt)=split(/<>/,$_); $PR_key=$keyword; $PR_key=~s/’/'/g; $en_keyword=&url_en($PR_key); if($bf_c ne $pt){$jyuni=$jyuni_z;} print<<"EOM"; $jyuni位: EOM if($open_key{$keyword} eq "1"){print $PR_key;} else{print $open_key{$keyword};} print<<"EOM";
EOM $jyuni_z++; $bf_c=$pt; if($jyuni_z>$EST{keyrank_hyouji}){last;} } close(IN); while($jyuni_z<=$EST{keyrank_hyouji}){ $jyuni_z++; } } &PR_keyrank_data("pre"); print<<"";
[ページTOPへ]

#&gane_st; #&PR_other_kt("rank.cgi?mode=keyrank"); #フッタスペース &foot_sp_i; &cr; print<<""; } 1;