Создание таблицы в базе данных из Perl с использованием SQLite3

Question

У меня возникли проблемы с созданием таблицы в базе данных, созданной с помощью Perl, с использованием dbi sqlite3. Используя приведенный ниже код, я хочу, чтобы в таблице содержались пробники портов, одна строка для каждого источника ip и порта. Я не знаю, будет ли им делать это правильно, код ниже не работает по какой-либо причине, любая помощь будет принята с благодарностью. Код у меня следующий.

#!/usr/bin/perl 

use strict; 
use DBI; 

my $dbh = DBI->connect(   
    "dbi:SQLite:dbname=test.db", 
    "", 
    "", 
    { RaiseError => 1} 
) or die $DBI::errstr; 


$dbh->do(CREATE TABLE probes (
    source CHAR(15) NOT NULL, 
    port CHAR(5) NOT NULL, 
    PRIMARY KEY (source,port))); 


$dbh->disconnect(); 

Answer 1

Вы забыли указать аргумент $dbh->do. Существует many способов сделать это.

$dbh->do("CREATE TABLE probes (..."); 
$dbh->do('CREATE TABLE probes (...'); 
$dbh->do(qq[ CREATE TABLE probes (... ]); 
$dbh->do(<<"END_SQL"); 
CREATE TABLE probes (
    ... 
END_SQL 

Добавлено:, чтобы решить эту проблему, нужно просто поставить кавычки вещи в вызове функции $dbh->do.

$dbh->do("CREATE TABLE probes (
  source CHAR(15) NOT NULL, 
  port CHAR(5) NOT NULL, 
  PRIMARY KEY (source,port))"); 

Answer 2

Вы также должны иметь use warnings в верхней части каждой программы.

Вам необходимо указать строку SQL для метода do. Общепринято использовать здесь документ для кодирования многострочных строк, например.

$dbh->do(<<'END_SQL'); 
CREATE TABLE probes (
    source CHAR(15) NOT NULL, 
    port CHAR(5) NOT NULL, 
    PRIMARY KEY (source, port)) 
END_SQL 

Осторожно, что END_SQL линия не может содержать каких-либо пробелы в начале или конце строки.