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();