如何使用Perl腳本將datetime格式傳遞給sql server？

Question

#!/usr/bin/perl

      use DBI;
      use Data::Dumper;
      use strict;


       my $DSN = q/dbi:ODBC:SQLSERVER/;
       my $uid = q/username/;
       my $pwd = q/password/;

       my $first_param=723454;
       my $current_date="2012-10-25 00:30:21";
       my $after_2min="2012-10-25 05:47:41";


       my $dbh = DBI->connect($DSN,$uid,$pwd) or die "Coudn't Connect SQL"; 

       my $sql2 = "insert reverise_call_main_menu call_number,call_originate_time,call_inbetween_time,call_after_2min_time) values(?,?,?,?)";
       my $sth2 = $dbh->prepare($sql2);
       $sth2->execute($first_param,$current_date,'null',$after_2min);

       $sth2->finish;
       $dbh->disconnect;

每當我執行程序時，都會出現以下錯誤：

輸出：-

DBD :: ODBC :: st執行失敗：從字符串轉換日期時間時，[unixODBC] [FreeTDS] [SQL Server]轉換失敗。 （SQL-22007）

Answer 1

錯誤消息表明SQL Server不喜歡您的日期時間字符串的格式。 您可能希望使用DateTime :: Format :: DBI幫助正確設置格式。