我在使用 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();