perl如何传递时间变量给SQL语句

fouter

ORACLE9 PERL5.8


my $newdate = $dbh ->prepare(qq{SELECT dretitle,drereference,dredate,launchtime FROM vir_podcast WHERE launchtime BETWEEN to_date('2007-8-10 13:00:01','YYYY-MM-DD HH24:MI:SS') AND to_date('2007-8-10 13:29:59','YYYY-MM-DD HH24:MI:SS') AND datasource = ?});
my $startime = "2007-8-10 00:00:01";
my $stoptime = "2007-8-10 23:59:59";
$newdate ->execute(22);

上面time字段是date型
用?号表示传递不了参数
请教怎样将"2007-8-10 13:00:01" 这样的时间用变量$startime,$stoptime进行替换？

galaxywar

to_date( $startime, 'YYYY-MM-DD HH24:MI:SS')