qq_test.pl

perl qq

#!/usr/bin/env perl

use strict;
use Net::OICQ;
use Net::OICQ::ServerEvent;
use Net::OICQ::Event;
use IO::Select;
my $qq_uid=;
my $qq_pass=;
my $input;

my $qq=Net::OICQ->new;
$qq->{Print}=0;
$qq->add_handler('recv_mesg',\&qq_recv_mesg);
$qq->add_handler('group_search',\&qq_group_search);
$qq->add_handler('on_login',\&qq_login);
$qq->add_handler('usr_info',\&qq_user_info);

$qq->login($qq_uid, $qq_pass) or die "Failed to login.\n";
my $select=IO::Select->new();
$select->add(\*STDIN);
my $con=1;
my $f=1;
while(1){
$qq->do_one_loop();
foreach ($select->can_read(0.1)){
	my $input=<>;
	unless($input){next;}
	process_kb($input);
}
}
sub process_kb{
my($input)=@_;
chomp($input);
unless($input){print "please input command:\n";return;}
my ($a,$b,$c)=split(",",$input);
#unless($a){print "please input command\n";return;}
print "command:$a\n";
unless($b){
   $qq->push_command($a,[]);
}
else{
   unless($c){
	   print "arg1:$b";
	   $qq->push_command($a,[$b]);
   }
   else{print " arg2:$c\n";
   	$qq->push_command($a,[$b,$c])}
}
}
sub qq_recv_mesg{
    my($get)=@_;
    if($$get{type} eq "buddy"){
	print "$$get{srcid}:$$get{mesg}\n";
	unless($f){$f=1;return;}
	foreach(1...2){
	$qq->push_command("send_msg",[$$get{srcid},"hi,test$con"]);
	$con++;
	}
	$f=0;	
    }
    elsif($$get{type} eq "group"){
	    print "$$get{srcid}:$$get{mesg}\n";
	    $qq->push_command("send_group_msg",[$$get{srcid},"这是机器人自动回复，$con"]);
	    $con++;
    }
}

sub qq_login{
#foreach (1...100){
       #$qq->push_command("send_msg",[258279649,"hi,test$_"]);

#       $qq->push_command("send_group_msg",[209454195,"test$_"]);
#		}
}
sub qq_group_search{
}
sub user_info{

}