[前][次][番号順一覧][スレッド一覧]

mysql:4162

From: "tamuzin2" <"tamuzin2" <tamuzin@xxxxxxxxxx>>
Date: Thu, 9 Aug 2001 18:39:22 +0900
Subject: [mysql 04162] 最新日時のデータのファイルを表示

田中です

前にも似たような質問をしたのですが、結局まだ完璧に解決できなかったので申し訳
ございませんが質問させて下さい。

+------+------------+-------------------+
| bagou   | gazou          | time                          |
+------+------------+-------------------+
|          1|dezikame.jpg     |2001-08-04 02:17:00   |
+------+------------+-------------------+
|          2|pasocon.jpg      |2001-08-05 15:30:00   |
+------+------------+-------------------+
|          3|purintaa.jpg      |2001-08-08 12:50:00    |
+------+------------+-------------------+
上記のようなデータベースがあって、その中から最新の日付のフィールド(gazou)の
データを表示させたい時はPerlでの記述はどのようにすればよいのでしょうか?
どなたかよろしければお教え下さい宜しくお願いします。

ちなみに下記の様にPerlで記述しましたがフィールド(gazou)に入っている画像デー
タが全て表示されてしまい、自分がやろうと思っている条件を絞り込んでの表示は成
功しませんでした。

#!perl

use DBI;
use Cwd;

my($dns) = "DBI:mysql:database:localhost";
my($username) = "root";
my($password) = "aaaa";
my($dbh,$sth);
my(@ary);

$dbh = DBI -> connect ($dns,$username,$password) or &Error("データベースへア
クセスできません。");

$sth = $dbh->prepare("select gazou from table where time < now()");

$sth -> execute() or &Error("select gazou from table where time < now()を実
行できません。");

print "content-type: text/html\; charset=shift_jis\n\n";
print<<"__HTML__";
<html><head><title>gazou</title></head>
<body text="#44444" bgcolor="#ffffff">
__HTML__

while(@ary = $sth -> fetchrow_array()){
print "<img src=\"../tmp/$ary[0]\">";
}

print<<"__HTML__";
</body>
</html>
__HTML__

$sth -> finish();
$dbh -> disconnect();
exit;

sub Error{
#print "content-type: text/html\n\n";
print $_[0];
print qq(<br><a href="javascript:history.back(1)">戻る</a>);
exit;
}


[前][次][番号順一覧][スレッド一覧]

      4143 2001-08-05 18:48 ["tamuzin2" <tamuzin@] datetime を使用しての比較               
      4144 2001-08-05 19:29 ┣[Okamoto RYO <ryo@xxx]                                       
      4145 2001-08-05 21:02 ┃┣[<endo_t@xxxxxxxxxx> ]                                     
      4146 2001-08-05 22:10 ┃┗["tamuzin2" <tamuzin@]                                     
      4147 2001-08-05 22:13 ┃ ┗[Tatsuhiko Miyagawa <]                                   
      4148 2001-08-05 22:27 ┃  ┗["tamuzin2" <tamuzin@] Re: datetime を使用しての比較【解決】
->    4162 2001-08-09 18:39 ┗["tamuzin2" <tamuzin@] 最新日時のデータのファイルを表示      
      4163 2001-08-10 07:41  ┗[とみたまさひろ <tomm]                                     
      4164 2001-08-10 10:46   ┗["tamuzin2" <tamuzin@] Re: 最新日時のデータのファイルを表示【解決】
      4165 2001-08-10 11:22    ┗[<endo_t@xxxxxxxxxx> ]