罪と罰++二律背反

# UAランキング
$top_ua         = $CP{'top_ua'};
$nm_ua         = $CP{'nm_ua'};
$top2_ua         = $CP{'top2_ua'};
$nm2_ua         = $CP{'nm2_ua'};
$top3_ua         = $CP{'top3_ua'};
$nm3_ua         = $CP{'nm3_ua'};
 if($top_ua<$ua){
   $top3_ua = $top2_ua;
   $nm3_ua = $nm2_ua;

   $top2_ua = $top_ua;
   $nm2_ua = $nm_ua;

   $top_ua = $ua;
   $nm_ua = $nm;
  }elsif($top2_ua<$ua && $nm_ua ne $nm){
	$top3_ua = $top2_ua;
	$nm3_ua = $nm2_ua;

	$top2_ua = $ua;
	$nm2_ua = $nm;
 }elsif($top3_ua<$ua && $nm2_ua ne $nm && $nm_ua ne $nm){
	$top3_ua = $ua;
	$nm3_ua = $nm;
}

  •  if($top_ua<$ua){ 
          $top2_ua=$top_ua if($nm2_ua eq $nm);
          $nm2_ua=$nm_ua   if($nm2_ua eq $nm);
          $top_ua=$ua;$nm_ua=nm;     
     }elsif($top2_ua<$ua && $nm_ua ne $nm){
          $top3_ua=$top2_ua if($nm3_ua eq $nm);
          $nm3_ua=$nm2_ua   if($nm3_ua eq $nm);
          $top2_ua=$ua;$nm2_ua=nm;
     }elsif($top3_ua<$ua && $nm2_ua ne $nm && $nm_ua ne $nm){
          $top3_ua=$ua;$nm3_ua=nm;
     } 


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:30:42 (2684d)