perl mysql 操作
发布时间：2020-12-16 00:25:09 所属栏目：大数据 来源：网络整理
导读：先安装模块 DBI 模块安装方法：http://blog.csdn.net/ajaxchen_615/article/details/7489294 #!/usr/bin/perl -w use strict; use warnings; use DBI ; my $database = 'dilicms'; my $user = 'root'; my $passwd = ''; #查询数据 my $dbh = DBI-connect("DB
|
先安装模块 DBI 模块安装方法：http://blog.csdn.net/ajaxchen_615/article/details/7489294
#!/usr/bin/perl -w
use strict;
use warnings;
use
DBI;
my $database = 'dilicms';
my $user = 'root';
my $passwd = '';
#查询数据
my $dbh = DBI->connect("DBI:mysql:$database",$user,$passwd);
my $statement = 'select `uid`,`username`,`password`,`email` from `dili_admins`';
my $sth = $dbh->prepare($statement) or die "Can't prepare $statement:$dbh->errstrn";
my $rv = $sth->execute or die "Can't execute the query:$sth->errstrn";
#更新数据
my $statement_update = "update `dili_admins` set `username`='rootroot' where `uid` = 1";
my $rv = $dbh->do($statement_update);
###################################################
# print $rv;
# while ( my @row = $sth->fetchrow_array) {
#
?
print $row[0],"n";
# }
#遍历
while ( my $hash_ref = $sth->fetchrow_hashref ) {
print $hash_ref->{username},"n";
}
$sth->finish;
$dbh->disconnect;
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |