使用 Perl 在 MySQL 中插入日期答案

【问题标题】：inserting date in MySQL using Perl使用 Perl 在 MySQL 中插入日期
【发布时间】：2011-12-08 20:13:57
【问题描述】：

我有以下代码：

    my $tdate = $fields[0]; 
print "$tdate\n"; 
my $trade_dt=UnixDate($tdate,"%Y-%m-%d"); 
# my $trade_dt = DATE(\"$tdate\"); 
print "$trade_dt\n"; 
my $ins_rec = "INSERT IGNORE INTO $tblname(\`trade_dt\`,\`symbol\`) va +lues (?,?);"; 
my $sth=$dbh->prepare($ins_rec); 
$sth->execute($trade_dt,$symbol); 
$sth->finish;

当我运行它时，我收到以下消息：

"10/14/2011" Use of uninitialized value $trade_dt in concatenation (.) or string at + Set.data.pl line 42, <FIN> line 1.

关于如何修复它的任何想法....它显然是从文件中正确读取日期，因为打印语句显示 tdate 的正确日期，该日期是从我拥有的 csv 文件中读取的，但转换为 trade_dt不正确吧？

【问题讨论】：

没有必要在 SQL 语句中转义反引号。在带引号的字符串中使用时，反引号不是特殊字符。另外，您是否考虑过使用 DBIx::Class 之类的东西进行数据库交互？它会让您的生活更轻松。

标签： mysql perl date

【解决方案1】：

似乎UnixDate() 正在返回undef，因为它无法解析您提供的日期。我怀疑问题是您的日期字符串被双引号包围，并且他们正在抛出解析器。去掉引号（使用 $tdate =~ s/^"(.*)"$/$1/; 之类的东西）看看是否有帮助。

【讨论】：