SQLite3을 사용하여 Perl에서 데이터베이스 테이블 생성

Question

dbi sqlite3을 사용하여 Perl로 만든 데이터베이스에 테이블을 만드는 데 문제가 있습니다. 아래에있는 코드를 사용하여 테이블에 포트 프로브, 각 소스 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도 있어야합니다.

do 메서드에 SQL 문자열을 제공해야합니다. 여기의 문서을 사용하여 여러 줄 문자열을 코딩하는 것이 일반적입니다.

$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 라인이 시작 또는 라인의 양쪽 끝에 어떤 공백을 포함 할 수 있음을주의하십시오.