mysql----perl

最新推荐文章于 2021-02-07 14:23:36 发布

__U64

最新推荐文章于 2021-02-07 14:23:36 发布

阅读量6.8k

点赞数 1

分类专栏： perl 文章标签： mysql perl API api

本文链接：https://blog.csdn.net/qq_32345239/article/details/52241416

版权

perl 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

perl 对mysql的增，删，改，查操作；

参考文档

代码演示:

#!/usr/bin/perl

use DBI;
use DBD::mysql;

my $db_name="test";
my $db_server="12.23.0.3";
my $db_port="3306";
my $db_user="sum";
my $db_pwd="sum";
#插入语句
my $in_sql="insert into test (flag,type,f_index) values (1,'type_9',9),(1,'type_10',10)";
#查询语句
my $sql="select * from test where f_index=9 or f_index=10";
#更新语句
my $update_sql="update test set type='perl' where f_index=9";
#删除语句
my $del_sql="delete from test where f_index=9 or f_index=10";
my @data=(); #存储查询数据的数组；
my $dbh=DBI->connect("dbi:mysql:$db_name:$db_server:$db_port","$db_user","$db_pwd",{PrintError=>0});
if(!$dbh){
		print "Can't connect DB 12.23.0.2\n";
		exit -1;
}else{
		print "connection success!\n";
}

$dbh->do("SET character_set_client='gdb'");
$dbh->do("SET character_set_results='gdb'");
$dbh->do("SET character_set_connection='gdb'");

#准备语句，prepare返回的是语句句柄，用来执行；
my $del_sth=$dbh->prepare($del_sql);
my $sth=$dbh->prepare($sql);
my $up_sth=$dbh->prepare($update_sql);
my $in_sth=$dbh->prepare($in_sql);

$in_sth->execute() || die "ERROR :" .$in_sth->errstr;
$sth->execute() || die "ERROR:".$sth->errstr;
print "\nthis result is not update:\n";
while(@data=$sth->fetchrow_array()){ #以数组方式获取查询结果
		print "flag=$data[0]  type=$data[1]  f_index=$data[2]\n";
}

$up_sth->execute() || die $up_sth->errstr;
$sth->execute() || die "ERROR:".$sth->errstr;
@data=();
print "\nthis result is update:\n";
while(@data=$sth->fetchrow_array()){
		print "flag=$data[0]  type=$data[1]  f_index=$data[2]\n";
}

$del_sth->execute() || die $del_sth->errstr;
print "\nrow of delete is  :  ".$del_sth->rows()."\n";

$sth->finish();
$in_sth->finish();
$up_sth->finish();
$del_sth->finish();

$dbh->disconnect();

执行结果：