论坛 › Perl › perl 用户查询

冰镇可乐 发表于 2018-9-1 09:52:35

perl 用户查询

if (!($sk)) {　　print STDERR "fail to connect bdb slave:".$server."\n";
　　exit;
　　}
　　#    print $sk "mget(\"test100\@sohu.net\")\n";
　　print $sk "mget(\"$user\")\n";
　　$echo=;
　　chomp($echo);
　　@items=split/\ /,$echo;
　　$status=$items;
　　$data=$items;
　　if ( $status eq "-1" ) {
　　print "not exist this user:".$user."\n";
　　exit 0;
　　}
　　@newitems=split/\:/,$data;
　　@quota=$newitems;
　　$tongid=$newitems;
　　$maildir=$newitems;
　　if ( $quota eq "2" ) {
　　print "quota of user is full"."\n";
　　}
　　print "tongid is:".$tongid."\n";
　　print "maildir is:".$maildir."\n";

查看完整版本: perl 用户查询