%top_count={}; &kt_top_count; # トップカテゴリ別の総登録数取得。 print<<""; $EST{search_name}

犬search モバイル β


# print<<"";
$PRcount
# print <<"";
▼ホームページ検索
# print<<"";
【 メニュー 】
0)カテゴリ検索
1)$EST{name_new}
2)$EST{name_renew}
# print<<""; 6)$EST{name_m1}
7)$EST{name_m2}
8)ヘルプ
9)更新・削除

※新規登録は各カテゴリ画面下の[ココに新規登録]から

(全登録数:$Cpre_ganeサイト)

【 カテゴリ 】

[ページTOPへ]

"; #フッタスペース &foot_sp_i; &cr; print "\n"; # トップカテゴリ別の総登録サイト数をカウントする。 sub kt_top_count{ local(@Slog,@kt,@kts,@kt_top); open(IN,"$EST{log_path}$EST{logfile}"); while(){ @Slog=split(/<>/,$_); @kt=split(/&/,$Slog[10]); foreach $kts(@kt){ @kt_top = split(/_/,$kts); $top_count{$kt_top[0]}++; } } close(IN); } 1;