@chatroom_id来源

sub _get_chatroom{
    my $self  = shift;
    my @chatroom_id = @_;
    my $post = {
        BaseRequest =>  {
            Uin         =>  $self->wxuin,
            DeviceID    =>  $self->deviceid,
            Sid         =>  $self->wxsid,
            Skey        =>  $self->skey,
        },
        Count       =>  @chatroom_id+0,
        List        =>  [map { {UserName=>$_,ChatRoomId=>""} } @chatroom_id ],
    };
    print "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy\n";
    print @chatroom_id;
    print "\n";
    print "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy\n";
	
	
	
	8880--yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
@@247828a9b566a0f4c22a78d04cec84e52318d84ac537d82ba97ce76cf33fad2c

@@82ce890c84a406b69ed33da8e38769d32fefc5d658b73998f831c93b1a403808

@@b9445fb846074ff4d5e07bc3ed0966c5e65c6c913e9c399e56b666f06