Perl使用技巧16：簡單獲取Mysql數(shù)據(jù)庫數(shù)據(jù)

arche77

需要用到2個(gè)模塊；

use DBI;
use DBD::mysql;

#持久化，如果不加這個(gè)參數(shù)，并發(fā)時(shí)候會出現(xiàn)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個(gè)字段或多個(gè)字段

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;
}

總之?dāng)?shù)據(jù)庫的操作方法很多，我只是提煉了2個(gè)最常用的getone & getall而已。