Perl使用技巧16：简单获取Mysql数据库数据

arche77

需要用到2个模块；

use DBI;
use DBD::mysql;

#持久化，如果不加这个参数，并发时候会出现mysql链接失败
%dbattr=(
AutoInactiveDestroy=>1
);

$dbh = DBI->connect("DBI:mysql:database=test;hostname=1.1.1.1;port=3306","user","password",\%dbattr) || croak "db err";
$dbh->do("SET character_set_client='utf8'";
$dbh->do("SET character_set_connection='utf8'";
$dbh->do("SET character_set_results='utf8'";

连接获得句柄。

$title=getone('select title from item limit 1');
say $title;

($title,$img)=getone('select title,img from item limit 1');
say "$title,$img";

获取一行信息。1个字段或多个字段

sub getone {
        my $sql=shift;
        my $sth=$dbh->prepare($sql);
        $sth->execute() || croak "sqlsql";
        my $ref=$sth->fetchrow_arrayref;
        deep_utf8_decode($ref);
        wantarray ? return @$ref : return $ref->[0];
}

@array=getall('select title,img from item limit 10');
foreach $item(@array) {
   ($title,$img)=@$item;
   say "$title,$img";
}

获取多行信息。

sub getall {
        my $sql=shift;
        my $ref=$dbh->selectall_arrayref($sql) || croak "$sql";
        deep_utf8_decode($ref);
        return @$ref;
}

总之数据库的操作方法很多，我只是提炼了2个最常用的getone & getall而已。