mysql - 如何将 DBIx::Simple + SQL::Abstract 与 DBIx::Connector 结合使用

Question

我在应用程序中使用 DBIx::Simple 和 SQL::Abstract。这是数据库连接代码:

my $nms_host    = 'mysql.server.com';
my $nms_base    = 'mydb';
my $nms_user    = 'myuser';
my $nms_pass    = 'password123';
my $nms_dsn     = "DBI:mysql:$nms_base:$nms_host";

# Initialize connection
# NMS
my $db_nms = DBIx::Simple->connect($nms_dsn, $nms_user, $nms_pass, {
    RaiseError => 1,
    mysql_enable_utf8 => 1
}) or die DBIx::Simple->error;
$db_nms->abstract = SQL::Abstract->new(
    case    => 'lower',
    logic   => 'and'
);

现在我需要使用 DBIx::Connector 但我不明白应该如何建立连接。

Answer 1

DBIx::Connector 创建数据库句柄，然后您可以将其直接传递给 DBIx::Simple。因此，出于您的目的，类似这样的事情应该有效:

#!/usr/bin/env perl

use strict;
use warnings;

use DBIx::Connector;
use DBIx::Simple;

my $nms_host    = 'mysql.server.com';
my $nms_base    = 'mydb';
my $nms_user    = 'myuser';
my $nms_pass    = 'password123';
my $nms_dsn     = "DBI:mysql:$nms_base:$nms_host";

my $conn = DBIx::Connector->new(
    $nms_dsn,
    $nms_user,
    $nms_pass,
    {   RaiseError        => 1,
        mysql_enable_utf8 => 1,
    }
);

my $simple = DBIx::Simple->connect( $conn->dbh );