Question

如果我有MySQL或MSSQL表结构，是否有可用于解析和重构Perl对象的Perl模块？。

MySQL架构示例：

    CREATE TABLE Letter (
        id bigint unsigned not null auto_increment unique primary key,
        Subject varchar(255),
        Message mediumtext,
        Date    int default 0,
    );

我希望将其解析为：

的示例

$letter = {
    id = {
        type = bigint,
        unsigned = 1,
        not_null = 1,
        auto_increment = 1,
        unique = 1,
        primary_key = 1,
    }

    Subject = {
        type = varchar,
        size = 255,
        default = 0,
    }

    Message = {
        type = mediumtext,
    }

    Subject = {
        type = int,
        default = 0,
    }
}

Answer 1

DBI模块可用于获取tables及其columns，类型等的详细信息。

但是，您可能需要查看DBIx::Class::Schema::Loader。您通常会使用它来生成一组类定义文件，然后您可以使用它们来查询数据库。 DBIx :: Class是一个完整的ORM - 可能是Perl中最完整的ORM。

Perl解析并重构MySQL Schema

1 个答案: