Perl: DBD :: ODBC :: ул Execute не удалось

Question

я получаю следующие ошибки:

Use of uninitialized value $_ in substitution (s///) at test.pl line 29, <$fh> line 2. 
Use of uninitialized value $col in split at test.pl line 40, <$fh> line 2. 
Use of uninitialized value $k in hash element at test.pl line 41, <$fh> line 2. 
DBD::ODBC::st execute failed: [Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near ' 
,'. (SQL-42000) 
[Microsoft][ODBC SQL Server Driver][SQL Server]Statement(s) could not be prepared. (SQL-42000) at da 
ve.pl line 63, <$fh> line 2. 
Can't execute statement: [Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near ','. (
SQL-42000) 
[Microsoft][ODBC SQL Server Driver][SQL Server]Statement(s) could not be prepared. (SQL-42000) at te 
st.pl line 63, <$fh> line 2. 

и я не могу понять, как решить эту проблему.

My code is here с входными данными.

Или любое другое лучшее решение для этой задачи (чтение данных из файла ввода, обработки данных и вставить значение в соответствующий столбец в таблице базы данных.)

Answer 1

SQL, INSERT INTO Синтаксис:

INSERT INTO table_name (column1,column2,column3,...) 
VALUES (value1,value2,value3,...); 

И вы получаете Incorrect syntax near the keyword 'VALUES' потому что вы забыли закрыть скобку ) в $sql после имен столбцов,

попробовать это:

my $sql = 'INSERT INTO table_name (' . 
      join(', ', keys %data) . 
      ') VALUES (' . 
      join(', ', map { qq['$_'] } values %data) . 
      ')'; 

или, еще лучше, используйте RaiseError для удобства и безопасности, identifier quoting за правильность и безопасность, query parameterization для обеспечения эффективности и безопасности, а также, возможно, do() его, а не prepare/execute:

my $dbh = DBI->connect(..., { RaiseError => 1 }); 
my $sql = 'INSERT INTO table_name (' . 
      join(', ', map { $dbh->quote_identifier($_) } keys %data) . 
      ') VALUES (' . 
      join(', ', map { '?' } keys %data . 
      ')'; 

my $num_inserted = $dbh->do($sql, undef, values %data); # We don't really need a distinct $sth 

DBD :: ODBC также поддерживает other placeholder syntax тоже.

Answer 2

Я не могу понять, как решить эту проблему.

В строке 27, добавьте

warn "[$_]"; 

И понять, почему parse_line возвращается undef.

Кроме того, поскольку некоторые строки, похоже, цитируются, возможно, лучше перейти на quotewords вместо parse_line.