mysql:4162

田中です

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

+------+------------+-------------------+
| 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;
}