Perl中操作Mysql示例

本文提供了一个使用Perl语言连接MySQL数据库并进行数据查询的具体实例。该脚本通过DBI模块连接到名为clientInfo的数据库,并从clientInfo表中筛选出符合特定条件的用户名。通过对查询结果的处理,统计了满足条件的用户名数量。

#!/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();

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值