mysql - 使用 Perl 在 MySQL 中插入日期

Question

我有以下代码:

    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.

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

Answer 1

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