簡易データベースの改造で日付けを新着順にできない。

CGI-BBS > データベース > 簡易データベース > 簡易データベースの改造で日付けを新着順にできない。

質問者 りゅうた投稿日 2005/4/22(金) 02:41:15

http://www.rescue.ne.jp/CGI-BBS/database/database/20040421010331.shtml のページを参考にしていましたが、日付けの登録をした新着順で表示したいのに現状は 4月16日(土)11時32分 4月18日(月)21時43分 4月21日(木)14時23分 4月3日(日)23時53分 4月5日(火)16時18分 4月9日(土)02時40分目的は 4月21日(木)14時23分 4月18日(月)21時43分 4月16日(土)11時32分 4月9日(土)02時40分 4月5日(火)16時18分 4月3日(日)23時53分の順番に表示されます。また、 search.cgiは以下の通りです。 print "Content-type: text/html\n\n"; print <<"EOF"; <html><head><title>$title</title></head>  $body 【検索結果】 EOF if (!@NEW) { print "●ご指定の条件では見当たりませんでした.\n"; } else { print "<table width=90% border=0 cellpadding=2 cellspacing=2 bordercolor=black><tr>\n"; print "<th bgcolor=black nowrap> a </th>\n"; print "<th bgcolor=black nowrap> b </th>\n"; print "<th bgcolor=black nowrap> ｃ </th>\n"; print "<th bgcolor=black nowrap> ｄ </th>\n"; print "<th bgcolor=black nowrap> e </th>\n"; print "<th bgcolor=black nowrap> f </th>\n"; print "<th bgcolor=black nowrap> g </th>\n"; print "<th bgcolor=black nowrap> h </th>\n"; print "<th bgcolor=black nowrap> i </th>\n"; print "<th bgcolor=black nowrap> j </th>\n"; print "<th bgcolor=black nowrap> k </th>\n"; print "<th bgcolor=black nowrap> l </th>\n"; print "<th bgcolor=black nowrap> m </th>\n"; print "<th bgcolor=black nowrap> n </th>\n";

【習熟度】初めて

質問者 りゅうた [削除] 投稿日 2005/4/22(金) 02:42:08

のつづきです。 print "</tr>\n"; @sorts = sort { (split(/,/,$a))[1] cmp (split(/,/,$b))[1] } @NEW; foreach $data (@sorts) { ($d,$date_now,$YOU,$REN,$PREF,$SYO,$NAME,$AGE,$SEX,$TOOL,$BUST,$STYLE,$PSTYLE,$SYS,$EMAIL,$RANK,$COMENT) = split(/\,/,$data); if ($EMAIL ne '') {$PREF = "<a href=\"$EMAIL\" target=\"_blank\">$PREF</a>"; } print "<tr>\n"; print "<td nowrap><center>$date_now</center></td>\n"; print "<td nowrap><center>$YOU</center></td>\n"; print "<td nowrap><center>$REN</center></td>\n"; print "<td nowrap><center>$PREF</center></td>\n"; print "<td nowrap><center>$SYO</center></td>\n"; print "<td nowrap><center>$NAME</center></td>\n"; print "<td nowrap><center>$AGE</center></td>\n"; print "<td nowrap><center>$SEX</center></td>\n"; print "<td nowrap><center>$TOOL</center></td>\n"; print "<td nowrap><center>$BUST</center></td>\n"; print "<td nowrap><center>$STYLE</center></td>\n"; print "<td nowrap><center>$PSTYLE</center></td>\n"; print "<td nowrap><center>$SYS</center></td>\n"; print "<td nowrap><center>$RANK</center></td>\n"; print "</tr><td colspan=10>$COMENT</td>\n"; print "</tr>\n"; } print "</table>\n"; if ($next_num ne '') { while (($key,$val) = each %FORM2) { if ($key ne 'FF') { $buf = "$buf&$key=$val"; } } print "<h3>▼<a href=\"search.cgi?$buf&FF=$next_num\">次の$page件</a></h3>\n"; } } print "<hr noshade>[<a href=\"./\">検索へ戻る</a>]\n"; print "</body></html>\n\n"; exit; 超初心者なのでいっぱい書いちゃいました・・・宜しければ皆様ご指導をよろしくお願いいたします。

回答者 sim [削除] 投稿日 2005/4/22(金) 10:16:38

１．フォーマットしちゃう登録日の保存時に $date = "$m月$d日($w)$h時$i分"; のような形式になってるのかな？と思うのですが、これを sprintf("%02d月%02d日(%s)%02d時%02d分",$m,$d,$w,$h,$i) のようにしておくと良いかもしれません？２．UNIXTIMEでソート $dで受け取っている部分には何が入っているのでしょう？これがUNIXTIMEであればここでソートしてあげれば良い気がします。３．ソート部分でフォーマット処理的に重そうですが、下記でも動くんじゃないかなと思います。 @sorts = sort { timeformat((split(/,/,$b))[1]) cmp timeformat((split(/,/,$a))[1]) } @NEW; sub timeformat{ if($_[0] =~ /(\d*)月(\d*)日(\D*)(\d*)時(\d*)分/){ return sprintf("%02d月%02d日%s%02d時%02d分",$1,$2,$3,$4,$5); } }

質問者 りゅうた [削除] 投稿日 2005/4/23(土) 20:03:39

SIMさんお返事有難うございます。おかげさまで私の要望に合った形にて表示されるようになりました。本当に有難うございます。登録時の時間の設定は下記になっています。 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); @wday_array = ('日','月','火','水','木','金','土'); $date_now = sprintf("%01d月%01d日(%s)%02d時%02d分",$mon +1,$mday,$wday_array[$wday],$hour,$min); ＞$dで受け取っている部分には何が入っているのでしょう？最初に知人に少し触ってもらったので、今もちんぷんかんぷんなのですが、 $dには実際CSVファイルを開くと空欄になっています。知人も私と同じくらいの知識ですので、これでよいかどうかは解らないみたいです。 SIMさんに教えていただいた３の部分にて動きましたが、今私のしている設定（記述）では動作は遅いのでしょうか？今はＤＢの登録件数は２０件くらいですが・・・・もし、こうしたらいいんじゃない？という方法がありましたらお教え頂けますでしょうか？

返信(回答)する

Ｗｅｂ裏技