perl访问mysql范例_Perl中操作Mysql示例

#!/usr/bin/perl -w

use DBI;

my $count = 0;

my $dbh = DBI->connect("DBI:mysql:database=clientInfo;host=192.168.1.22", "wuwu", "123456", {'RaiseError' => 1});

#统计总人数

my $countsth = $dbh->prepare("select * from clientInfo where username like /"%_wu/";");

$countsth->execute();

while(my $countref = $countsth->fetchrow_hashref())

{

my $name=$countref->{username};

if( length($name) >2  )

{

print "username: $countref->{username}/n";

$count++;

}

}

$dbh->disconnect();