Help us understand the problem. What is going on with this article?

Perl製のデータベースマイグレーションツール「Anego」入門

More than 3 years have passed since last update.

「Anego」とは?

Anegoという, Perl製のデータベースマイグレーションツールを作りました.

Ruby on Railsであれば標準でデータベースのマイグレーションのための仕組みが用意されていますが, Perlの場合その辺りは自前で用意しなければなりません.
CPANには, データベースのマイグレーションとしてDBIx::Migrate, DBIx::Migration, GitDDL, GitDDL::Migratorなどが提供されていますが,

  • DBIx::Migrate ... 最終更新が2003年
  • DBIx::Migration ... 最終更新が2010年
  • GitDDL / GitDDL::Migrator ... 自分のユースケースでは少しオーバースペックに感じた
    • スキーマのバージョンを保存するためのデータベーステーブルを生成するところなど

というわけで, PerlのWebアプリケーションを開発する場面では, SQL::Translator::DiffでDBスキーマに追従させる方法を参考に, SQL::Translator::Diffを使った独自のマイグレーションスクリプトを用意して開発を進めていました.

とはいえ, 毎回プロジェクトが始まる度に用意するのも面倒ですし, 機能追加をする度に反映させていくのも正直面倒になってきたので, この機会にモジュールとして切り出そう! ということで出来上がったのが, Anegoです.

...ちなみに, Anegoという名前は, @karupanerura さんが開発されているPerl製のORM, Anikiにインスパイア(?)されて名づけました.
実際, AnegoはAnikiと非常に簡単に組み合わせることが出来るので, 興味があれば是非Anikiも試してみてください.

「Anego」のインストール

Anegoは現在Developer Releaseですので, 次のようにバージョンを指定してインストールする必要があります:

$ cpanm Anego@0.01_01
--> Working on Anego
Fetching http://www.cpan.org/authors/id/P/PA/PAPIX/Anego-0.01_01.tar.gz ... OK
Configuring Anego-0.01_01 ... OK
Building and testing Anego-0.01_01 ... OK
Successfully installed Anego-0.01_01
1 distribution installed

cpanfileに記載する場合は, 次のようにしましょう:

perl
requires 'Anego', '== 0.01_01';

「Anego」入門

それでは, 具体的なAnegoの使い方を説明していきます.
※なお, この記述はAnego 0.01_01に準拠しています.

スキーマの作成 - DBIx::Schema::DSL

まずは, Anegoで管理するデータベースのスキーマを作っていきましょう.
Anegoでは, MySQLなどのDDLではなく, DBIx::Schema::DSLを使ってスキーマを定義し, これを管理します(既にDDLやデータベースが存在する場合, DBIx::Schema::DSL::Dumperから生成するのがオススメです).

ここでは, lib/MyApp/DB/Schema.pmというファイルに, MyAPP::DB::Schemaというクラスとして設置することにしましょう.

lib/MyApp/DB/Schema.pm
package MyApp::DB::Schema;
use strict;
use warnings;

use DBIx::Schema::DSL;

create_table 'module' => columns {
    integer 'id', primary_key, auto_increment;
    varchar 'name';
    integer 'author_id';

    add_index 'author_id_idx' => ['author_id'];

    belongs_to 'author';
};

create_table 'author' => columns {
    integer 'id', primary_key, auto_increment;
    varchar 'name', unique;
};

設定ファイル - .anego.pl

続いて, Anegoの設定ファイルを用意します.
Anegoの設定ファイルは, .anego.plとして保存します:

.anego.pl
+{
    "connect_info" => ["dbi:mysql:database=anego;host=localhost", "root"],
    "schema_class" => "MyApp::DB::Schema",
}

connect_infoはデータベースに接続する為の情報, schema_classは先ほどDBIx::Schema::DSLで定義したスキーマのクラス名を指定します(このクラスを, 以降"スキーマ定義用クラス"と呼ぶことにします).

これで準備は完了です.

マイグレーション実行 - anego migrate

マイグレーションを実行は, anego migrateコマンドです.

$ anego migrate
Migrated

anego migrateの場合, 現在の最新のスキーマ(現時点のスキーマ定義用クラスで定義されているスキーマ)でマイグレーションが行われます.

$ anego migrate
target schema == database schema, should no differences

anego migrateコマンドによるマイグレーションは, データベースの現状のスキーマと, マイグレーション対象となるスキーマに差分があるときだけ行われます.
そのため, もう一度anego migrateでマイグレーションを行おうとすると, 上記のように「スキーマに違いがありません」という結果になります.

ステータスの表示 - anego status

anego statusコマンドは, 現在のAnegoの設定を表示します:

$ anego status

RDBMS:        MySQL
Database:     anego
Schema class: MyApp::DB::Schema (lib/MyApp/DB/Schema.pm)

Hash     Commit message
--------------------------------------------------
8514849  initial commit

RDBMS, データベースの名前, そしてスキーマ定義用クラスのクラス名と, そのパスが表示されます.

更に, Gitのコミットログの情報を使って, スキーマ定義用クラスが変更されたコミットについて, そのコミットのハッシュ値と, コミットメッセージも表示します.

例えば, MyApp::DB::Schemaので定義したmoduleテーブルに, text型のdescriptionカラムを追加してから, fix schemaというコミットメッセージでコミットしたとすると, anego migrationの結果は次のようになります:

$ anego status

RDBMS:        MySQL
Database:     anego
Schema class: MyApp::DB::Schema (lib/MyApp/DB/Schema.pm)

Hash     Commit message
--------------------------------------------------
3b9b127  fix schema
8514849  initial commit

任意のスキーマへのマイグレーション - anego migrate revision [HASH]

anego migrate revision [HASH]で, 任意のコミットのハッシュ値([HASH])におけるスキーマ定義用クラスの状態へ, データベースをマイグレーションすることができます.

先ほどのanego statusで出てきた, 3b9b127というコミットハッシュ値で表されるコミット時のスキーマ定義用クラスの内容にデータベースをマイグレーションさせたい場合, 次のようにします.

$ anego migrate revision 3b9b127
Migrated!

まとめ

Perl製のデータベースマイグレーションツール「Anego」の使い方について, 簡単に説明しました.
まだまだ開発版なので, 今後機能追加や仕様変更などあるかもしれません. また, IssueやPull Requestも募集中です.

ご興味があれば, この機会に是非Anegoを使ってみてください!

papix
papixといいます. Perlが好きです.
http://papix.hatenablog.com/
hatena-corp
「知る」「つながる」「表現する」で新しい体験を提供し、人の生活を豊かにする
https://hatenacorp.jp/
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
Comments
No comments
Sign up for free and join this conversation.
If you already have a Qiita account
Why do not you register as a user and use Qiita more conveniently?
You need to log in to use this function. Qiita can be used more conveniently after logging in.
You seem to be reading articles frequently this month. Qiita can be used more conveniently after logging in.
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
ユーザーは見つかりませんでした