先安装模块
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->errstr\n";
my $rv = $sth->execute or die "Can't execute the query:$sth->errstr\n";
#更新数据
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;