如何让 perl 与 gmail 聊天一起工作？

Posted 2023-02-23

【中文标题】如何让 perl 与 gmail 聊天一起工作？

【英文标题】：How can I get perl to work with gmail chat?

【发布时间】：2014-02-14 15:02:47

【问题描述】：

我试过this 和this。但它只是行不通。 AuthSend 返回空数组。或许我应该给你提供一些代码来讨论：

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

use Net::XMPP;
use Data::Dumper;

my $username = 'USERNAME';
my $password = 'PASSWORD';
my $connection = new Net::XMPP::Client;
my $r = $connection->Connect(
    hostname => 'talk.google.com',
    port => 5222,
    componentname => 'gmail.com',
    connectiontype => 'tcpip',
    tls => 1
);
say Dumper $r;
my @r = $connection->AuthSend(
    username => $username,
    password => $password,
    resource => 'test'
);
say Dumper \@r;

【问题讨论】：

尝试5223端口：support.google.com/talk/answer/24074?hl=en

@toolic 它没有进行身份验证。

@RobEarl 在这种情况下Connect 返回undef。

【参考方案1】：

你可以试试Net::XMPP::Client::GTalk。

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

use Data::Dumper;
use Net::XMPP::Client::GTalk;

my $username = 'USERNAME';
my $password = 'PASSWORD';

# does all the connection-handling and authentication at once
my $client = Net::XMPP::Client::GTalk->new(
    USERNAME => $username,
    PASSWORD => $password,
);

say Dumper($client);