SQL之DBIx::Custom

说明

写这篇文章的目的只是因为自己要用这个模块，在CPAN和Github上面有详细的介绍说明以及使用方式，但是每次都去上面查找很麻烦，所以就在这里吧一些东西列一下方便使用的时候查看。

想要深入了解的可以去CPAN和Github查看，下面是DBIx::Custom在CPAN和Github的连接：
https://metacpan.org/pod/DBIx::Custom
https://github.com/yuki-kimoto/DBIx-Custom

介绍

1、DBIx::cystom 是一个DBI扩展类，可以轻松的搞定insert，update，delete，和select语句，同时可以灵活的创建where语句。
2、它可以很好支持常用的数据库如：MySQL，SQLite，PostgreSQL，Oracle，Microsoft SQL Server，Microsoft Access，DB2或其他。

连接数据库

以Mysql为例直接上代码:

  my $dbi = DBIx::Custom->connect(
    dsn => "dbi:mysql:database=bookshop",
    user => 'ken',
    password => '!LFKD%$&',
    option => {mysql_enable_utf8 => 1}
  );

## 设置dsn到数据源名称，user用户名，password密码，并option以DBI选项。返回值是DBIx :: Custom对象。
## mysql_enable_utf8选项设置为1，Perl内部字符串自动转换为UTF-8字节字符串。

当然也可以用主机名和端口号来远程连接Mysql服务器：

   my $dbi = DBIx::Custom->connect(
      dsn => "dbi:mysql:database=bookshop;host=somehost.com;port=3306",
      user => 'ken',
    password => '!LFKD%$&',
 );

使用方式

基础函数

execute()

该方法可以直接执行SQL，同时支持命名占位符。例如：

  my $result = $dbi->execute("select * from book");
  ## 返回值是DBIx :: Custom :: Result对象。通过all方法获取所有行。
  my $rows = $result->all;

详细的result对象请参考 DBIx :: Custom :: Result

命名占位符替代“？”。例如：

my $result = $dbi->execute(
   "select * from book where title = :title and author like :author",
   {title => 'Perl', author => '%Ken%'}
);

my $result = $dbi->execute(
  "select * from book where title = :book.title and author like :book.author",
  {'book.title' => 'Perl', 'book.author' => '%Ken%'}
);

##  SQL可以包含参数，例如：author和：title。您可以将表名添加到列名称，如：book.title和：book.author。第二个参数是嵌入到列参数中的数据。
##  当执行select语句时，返回值是DBIx :: Custom :: Result对象，或执行insert，update，delete语句时受影响的行数。

当然你也可以这样：

  select * from book where title = :title and author like :author;  <=>  select * from where title = ? and author like ?;
  ## 或者
  select * from book where :title{=} and :author{like}; <=> select * from where title = ? and author like ?;

  ## 请注意占位符中如果出现“：”那么它将不会被解析，如果你想使用“：”的话就需要在其前添加“\\”,如：
  select * from where title = "aa\\:bb";

select()

  my $result =$dbi->select(['*'],table=>'user',where=>{id=>1},append => 'group by status');
  my $rows = $result->all;

查询user表id=1的全部数据；
select()中有三个参数：
第一个是要查询的列名，查询全部 ['*'] 、' * ' 、或者不传也是查询全部，当我们只需要一部分列时可以 ['id','name'] 或者 [ qw /id name/ ]。
第二个table表示需要差选的表名；
第三个表示需要的条件；
如果你想要使用 group by，order by ，LIMIT 那么你就需要用 append 了。

insert（）

  $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
  #修改时间
  {date => \"NOW()"}
 # 添加多条数据
 $dbi->insert(
  [
    {title => 'Perl', author => 'Ken'},
    {title => 'Ruby', author => 'Tom'}
  ],
  table  => 'book'
);

update()

  $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4});

模板之DBIx::Custom::Model

  $dbi->include_model('MyModel');

可以通过该方法加载模型信息。