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.

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

Answer 1

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

使用Perl在MySQL中插入日期

1 个答案: