如何使用Perl6中的DBIish连接到本地MySQL Server 8.0

Question

我正在研究一个Perl6项目,但很难连接到MySQL.即使使用DBIish(或perl6.org教程)示例代码,连接也会失败.任何建议或意见表示赞赏!用户凭据也已经过确认.

我在带有MySQL Server 8.0的Windows 10和带有Rakudo Star的标准Perl6上运行它.我尝试过多种方式修改连接字符串,例如:$ password:password <>:password()等但无法建立连接.还应注意我安装了ODBC,C,C++和.Net连接器.

#!/usr/bin/perl6
use v6.c;
use lib 'lib';
use DBIish;
use Register::User;

# Windows support
%*ENV<DBIISH_MYSQL_LIB> = "C:/Program Files/MySQL/MySQL Server 8.0/liblibmysql.dll"
    if $*DISTRO.is-win;

my $dbh = DBIish.connect('mysql', :host<localhost>, :port(3306), :database<dbNameHere>, :user<usernameHere>, :password<pwdIsHere>) or die "couldn't connect to database"; 
my $sth = $dbh.prepare(q:to/STATEMENT/);
    SELECT *
    FROM users
    STATEMENT

$sth.execute();

my @rows = $sth.allrows();

for @rows { .print }
say @rows.elems;

$sth.finish;
$dbh.dispose;

这应该连接到DB.然后,应用程序运行查询,然后打印出每个结果行.实际发生的是应用程序每次都会点击"死"消息.

Answer 1

这更多的是一种解决方法，但无法使用数据库会造成严重后果。因此，即使尝试使用 NativeLibs，我也无法通过 DBIish 建立连接。相反，我选择使用DB::MySQL，事实证明这非常有帮助。通过几行代码，该模块即可满足您的数据库需求：

use DB::MySQL;

my $mysql = DB::MySQL.new(:database<databaseName>, :user<userName>, :password<passwordHere>);
my @users = $mysql.query('select * from users').arrays;

for @users { say "user #$_[0]: $_[1] $_[2]"; }

#Results would be:
#user #1: FirstName LastName
#user #2: FirstName LastName
#etc...

这将为每个用户打印一行，格式如上所示。它不像 DBIish 那样熟悉，但该模块可以根据需要完成工作。您还可以用它做更多的事情，所以我强烈建议您阅读文档。