@chatroom_id来源

最新推荐文章于 2024-03-31 22:32:11 发布

scan724

最新推荐文章于 2024-03-31 22:32:11 发布

阅读量4.1k

点赞数

分类专栏： perl WeixinClient

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/50630581

版权

perl WeixinClient 专栏收录该内容

63 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这是一个Perl脚本，用于获取并整理`@chatroom_id`的列表。脚本构建了一个POST请求，其中包含从`init`接口获取的数据，并通过`sort -u`命令去重并显示唯一的`ChatRoomId`。

摘要由CSDN通过智能技术生成

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
@@247828a9b

了解本专栏