從Perl腳本比較MySQL數據庫中的日期

Question

我有一個帶有MySQL查詢的Perl腳本，如下所示

my $date         = strftime "%Y-%m-%d", localtime;

my $db_passwdcol = "password";
my $db_table     = "users";
my $db_usercol   = "username";
my $db_cond      = "expire_date";

my $sql_query    = "SELECT $db_passwdcol FROM $db_table WHERE $db_usercol = ?" . ($db_cond gt $date ? ");

我想做的是使用SQL查詢比較當前日期和過期日期。 我嘗試了許多變體，但絕望了。

提前致謝，

Answer 1

如下更改對我有用的sql查詢字符串；

 $sql_query = "SELECT $db_passwdcol FROM $db_table WHERE $db_usercol = ? AND $db_cond > NOW()";

最好，