当サイトはQ&A掲示板(コミュニティ)の窓口を共有して下さるサイト様を募集しています。
[Q&A掲示板] 共有サイト様募集!# 管理モード sub Admin { # パスワード不一致ならエラー &Error('パスワードが違います!') if($in{'pass'} ne $ADMIN_PASS); # 会員データの読み込み &Get_User(); # ヘッダー &Header(); # ユーザーフラグ $f = 0; print <<E_O_M; <form action="test.cgi" method="POST"> <SELECT name="sort"> <OPTION value="0">ID</OPTION> <OPTION value="1">PASS</OPTION> <OPTION value="2">名前</OPTION> <OPTION value="3">メールアドレス</OPTION> </SELECT><input type="submit" value="並び替え"> <input type="hidden" name="pass" value="$in{'pass'}"> <input type="hidden" name="m" value="Admin"> </form> </body> <table border="1"> <tr><td>ID</td><td>PASS</td><td>名前</td><td>メールアドレス</td></tr> E_O_M foreach(sort { $UserData{$a}[$in{'sort'}] cmp $UserData{$b}[$in{'sort'}] } keys %UserData) { # ユーザーが一人でもいるならユーザーフラグを真 $f = 1; print "<tr><td>$UserData{$_}[0]</td><td>$UserData{$_}[1]</td> <td>$UserData{$_}[2]</td><td>$UserData{$_}[3]</td></tr>"; } # ユーザーフラグが偽ならユーザー不在のメッセージ print "<tr><td colspan=\"4\">登録されたユーザーはありません</td></tr>" unless($f); print "</table></body></html>"; }
sub sort1 { if(!$in{'f'}) { # 昇順 $UserData{$a}[$in{'sort'}] cmp $UserData{$b}[$in{'sort'}] } else { # 降順 $UserData{$b}[$in{'sort'}] cmp $UserData{$a}[$in{'sort'}] } } # ソートの呼び出し方 # foreach(sort { &sort1() } keys %UserData) { # . # . # .