@chatroom_id来源

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

scan724

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

阅读量4.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： perl WeixinClient

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/50630581

perl WeixinClient 专栏收录该内容

63 篇文章 ¥39.90 ¥99.00

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

@@82ce890c84a406b69ed33da8e38769d32fefc5d658b73998f831c

了解本专栏