perl脚本连接到mysql服务器端口3307

Question

我正在尝试连接到在端口3307上运行的mysql服务器。如何连接到该服务器？ 我看不到其他指定端口的方法。 我正在这样使用：

#!/usr/bin/perl
use Mysql;

$host = "localhost";
$database = "abc";
$tablename = "def";
$user = "uuu";
$pw = "ppp";


$connect = Mysql->connect($host, $database, $user, $pw) or die "Cannot connect to MySQL server\n";

我想使用MySQL软件包而不是DBI。

谢谢。

Answer 1

你误会了。 您要使用DBI，而不要使用Mysql。 Mysql模块在12年前就已过时，当时它被兼容模块替换，该模块只是DBI的包装。 甚至兼容性模块也已从当前发行版中删除； 您只需要安装一个旧的DBD :: mysql即可（它最后一次发布于2006年发布的DBD-mysql 3.0008中）。

#!/usr/bin/perl

use strict;
use DBI;

my $host = "localhost";
my $database = "abc";
my $port = 3307;
my $tablename = "def";
my $user = "uuu";
my $pw = "ppp";

my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host;port=$port",
                       $user, $pw)
  or die "Cannot connect to MySQL server\n";

Answer 2

尝试指定类似localhost:3307主机

Answer 3

对我来说...以下内容似乎很有效...

#!/usr/bin/perl

use strict;
use DBI;

my $host = "rajeshk-W7";
my $database = "rajesh";
my $port = 3307;
my $tablename = "def";
my $user = "rajesh";
my $pw = "rajesh123";
#my $dbh = DBI->connect("DBI:mysql:rajesh:rajeshk-W7","rajesh","rajesh123") or die "Cannot connect to MySQL server\n";

my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host",$user, $pw) or die "Cannot connect to MySQL server\n";

我在提到港口的地方。 当我添加端口时，其无法连接。