Perl6로 DB에 연결

로컬에 mariadb 설치

# インストール
$ brew install mariadb

# 起動
$ mysql.server start

# セキュリティ設定
$ mysql_secure_installation
## root のパスワードを root にしました(セキュリティ設定とは一体)

# データベース作成
$ mysql -uroot -proot -e'create database perl6test'

DBIish you a merry Christmas

use v6;
use DBIish;

my
$dbh = DBIish.connect(
  "mysql",
  :database<perl6test>,
  :user<root>,
  :password<root>,
  :RaiseError
  );

my
$sth = $dbh.do(q:to/STATEMENT/);
  DROP TABLE IF EXISTS idol ;
STATEMENT

$sth = $dbh.do(q:to/STATEMENT/);
  CREATE TABLE idol (
    id          SMALLINT UNSIGNED AUTO_INCREMENT PRIMARY KEY,
    family_name VARCHAR(12),
    last_name   VARCHAR(12),
    age         TINYINT UNSIGNED
  ) ;
STATEMENT

선불 문

$sth = $dbh.prepare(q:to/STATEMENT/);
    INSERT INTO idol (family_name, last_name, age)
    VALUES ( ?, ?, ? ) ;
STATEMENT

$sth.execute('星宮', 'いちご', 16);
$sth.execute('霧矢', 'あおい', 16);
$sth.execute('紫吹', '蘭',    17);
$sth.execute('大空', 'あかり', 13);

fetchall_arrayref

my
$sth = $dbh.prepare(q:to/STATEMENT/);
    SELECT id, family_name, last_name, age FROM idol ;
STATEMENT

$sth.execute;

my
$arrayref = $sth.fetchall_arrayref();

# 要素数
$arrayref.elems.say; #=> 4

# $arrayref の中身を dump ...
$arrayref.perl.say; #=> $[["1", "星宮", "いちご", "16"], ["2", "霧矢", "あおい", "16"], ["3", "紫吹", "蘭", "17"], ["4", "大空", "あかり", "13"]]

# family_nameとlast_nameだけとりだし
for @( $arrayref ) -> $idol {
  @( $idol ).[1,2].join.say;
}

fetchrow-hash

my
$sth = $dbh.prepare(q:to/STATEMENT/);
    SELECT id, family_name, last_name, age FROM idol ;
STATEMENT

$sth.execute;

loop {
 my $hash = $sth.fetchrow-hash ;
 last unless $hash ;

 # $hash の中身を dump 
 $hash.perl.say;

 # family_nameとlast_nameだけとりだし
 $hash.{'family_name', 'last_name'}.join.say;
}

절단

$sth.finish;
$dbh.disconnect;

$ p6doc DBIish

$ p6doc DBDish::Role::ErrorHandling
$ p6doc DBDish::Role::Connection
$ p6doc DBDish::Role::StatementHandle

참고 및 주석